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PIRATERIA  DE  SOFT 
...Y  ALGO  MAS 


San  Sebastián.  8  marzo  1985 

Queridos  amigos  de  COMMODORE  WORLD: 

Aunque  con  la  presente  no  pretendo  hacer  una  critica  al  articulo 
aparecido  en  el  número  13  de  la  revista  titulado  "PIRATERIA  DE 
SOFr=ROBO",  si  que  quiero  hacer  unas  puntualizacioncs  que 
supongo  que  no  sólo  me  atañen  a  mi. 

Los  calificativos  usados  en  el  mencionado  articulo  son  un  poco 
duros,  pero  al  fin  y  al  cabo  son  los  ún  eos  que  la  Real  Academia  de  la 
Lengua  permitiría  usar  en  estos  casos. 

Aunque  hay  momentos  en  los  que  cualquiera  de  los  que  andamos 
en  este  mundillo  podemos  sentirnos  un  poco  tocados,  muchos  como 
yo,  hemos  aprendido  mucho,  por  no  decir  muchísimo,  intentando 
copiar  programas,  que  por  mil  caminos  caen  en  nuestras  manos.  Una 
salvedad,  en  este  momento  poseo  cerca  de  doscientos  programas  para 
el  C-64  y  os  indico  que  de  todos  ellos,  tan  sólo  ocho  o  diez  han  sido 
adquiridos  por  mi  a  la  revista,  el  resto  han  sido  algunos  de  mi  cosecha 
propia,  copiados  de  otros  que  me  han  prestado,  traducidos,  etcétera. 

También,  como  salvedad,  os  indico  que  casi  todos  los  programas 
que  yo  poseo  han  sido  a  su  vez  copiados  por  otros  amigos,  ya  que 
formamos  una  especie  de  “club  de  intercambios",  sin  que  por  el 
momento,  yo  particularmente,  haya  recibido  un  solo  duro  por  ello. 

Existen  en  la  actualidad  multitud  de  programas  en  el  ámbito 
internacional  que  por  una  causa  o  por  otra  no  han  llegado  a  España. 
Debido  a  las  características  particulares  de  mi  trabajo,  he  de  viajar 
mucho,  por  lo  que  tengo  alguna  facilidad  en  estar  un  poco  al  día  de  lo 
que  existe  en  el  mercado  internacional,  aplicable  a  mi  ordenador. 

¿Qué  calificativo  merecería  para  el  autor  del  articulo,  que  por  cierto 
no  sé  quien  es,  aquellas  personas  que  compran  un  programa,  se  meten 
a  fondo  con  y  en  él,  lo  traducen,  lo  adaptan  a  unas  necesidades 
particulares,  y  luego...? 

Me  gustaría  saber  qué  empresa  de  SOFT  no  hace  o  ha  hecho  eso, 
con  mas  o  menos  asiduidad.  Como  he  indicado  anteriormente,  yo 
personalmente  lo  he  hecho,  pero  no  dispongo  de  una  empresa  de 
SOFT,  por  lo  que  cuando  tengo  un  programa  en  mis  manos,  me  meto 
a  fondo  con  él,  lo  traduzco,  si  es  necesario,  lo  adapto  a  mis  necesida¬ 
des,  y  luego  no  lo  uso  tan  siquiera,  copiándoselo  al  anteriormente 
mencionado  pseudoclub  de  intercambios,  por  cierto  nada  formal  al 
que  se  pueden  agregar  todas  aquellas  personas  que  lo  deseen.  Con 
este  método  hemos  conseguido  hacernos  con  un  buen  paquete  de 
buenos  programas  sin  tener  que  desembolsar  los,  algunas  veces  abu¬ 
sivos,  precios  que  tienen  en  el  mercado. 

Es  ilegal  vender  programas  (C)  sin  conocimiento  del  autor,  pero  es 
tan  ilegal  como  copiar  una  cinta  de  cassette  y  revenderla,  cosa  que  en 
la  actualidad  es  relativamente  normal. 


Sin  embargo  en  el  momento  que  haces  el  camino  que  he  indicado 
anteriormente  de  buscar,  comprar,  meterte  a  fondo  con  él,  traducirlo, 
adaptarlo,  etc.,  deja  en  principio  de  ser  ilegal,  aunque  moralmente  lo 

Como  me  estoy  alargando  mucho  y  no  es  mi  intención  ser  pesado, 
y  a  esta  altura  de  la  carta  no  sé  si  he  dicho  algo  o  no  voy  a  hacer  un 
resumen. 

PREGUNTO:  ¿Entramos  dentro  de  la  calificación  dada  por  el 
autor  del  artículo  personas  como  nosotros?,  ¿es  suficiente  un  articulo 
en  una  revista  para  sensibilizar  a  la  gente  a  trabajar  contra  las  empre¬ 
sas  o  particulares  que  venden  lo  que  les  cuesta  X  Pts.  a  XXXXX  Pts.?, 
¿qué  medios  tenemos  los  particulares  para  saber  si  un  programa  que 
venden  las  empresas  de  SOFT  es  o  no  “pirata"? 

PROPONGO:  a  todos  los  usuarios  la  correspondiente  denuncia  a 
la  revista  y  por  parte  de  esta,  su  correspondiente  espacio  en  la  misma, 
reservado  para  éstas  denuncias. 

Nada  más  por  el  momento,  espero  no  haberme  extendido  mucho, 
seguir  adelante  con  vuestra  línea  y  todos  nos  beneficiaremos. 

Un  saludo  afectuoso. 

A.J.O.G. 


HOLA  AMIGOS: 

Os  escribo  la  presente,  para  hacer  unas  cuantas  puntualizaciones 
sobre  el  articulo  aparecido  en  vuestra  revista  de  marzo. 

En  principio,  estoy  de  acuerdo  con  lo  de  que  la  venta  de  sofl  ilegal 
“fusilado"  es  un  robo,  y  también  estoy  de  acuerdo  en  que  a  la  persona 
que  hace  un  programa,  le  debe  sentar  bastante  mal  el  ver  su  programa 
por  la  calle  en  copias  "fusiladas"  y  además  reconozco  que  es  pisarle  la 
idea,  imaginación  y  trabajo  que  le  haya  costado  hacerlo. 

Una  de  las  causas  de  esto,  pienso  que  se  debe  en  bastante  culpa  a 
los  comerciantes  legales  del  SOFT,  pues  pienso  que  venden  los  pro¬ 
gramas.  a  mi  modo  de  ver,  a  un  precio  abusivo  y  esto  lo  digo  sin  saber 
los  precios  que  estos  comerciantes  pagan  por  programas  y  cintas  o 
discos,  aunque  creo  que  trabajarán  con  un  margen  bastante  amplio. 

También  se  podría  hablar  de  la  gente  que  hace  programas  como 
COPY  190  e  IM1TATOR.  que  también  son  programas  como  los 
demás  y  sin  embargo  sirven  para  “COPIA  R"  otros  programas 
— que  conste  que  me  parece  muy  bien  que  existan  este  tipo  de 
programas. 

Estoy  también  de  acuerdo  con  lo  de  que  no  se  debe  pagar  ni  un  duro 
por  estas  copias  de  programas  fusilados,  pues  se  pueden  conseguir 
más  tarde  o  más  temprano  por  amistad  o  compañerismo,  no  por  afán 
de  lucro. 
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Otra  cosa  que  me  gustaría  añadir,  es  que  yo  estaría  dispuesto  a 
CAMBIAR  programas,  no  a  venderlos  con  todos  los  que  quieran 
ponerse  en  contacto  conmigo. 

Ya  me  despido  esperando  no  haberme  enrollado  demasiado,  pero 
no  sin  antes  felicitaros  por  vuestra  labor  en  esta  revista. 

Se  despide  un  amigo 
José  Emilio  Bases  Muñoz 

Avda.  Santa  Isabel,  6,  bl.  7-2*b.  B9  Santa  Isabel. 

Telf.:  57  38  74.  50016-Zaragoza 
Socio  de  la  suscripción  n9  5628 


Rcus,  18  de  marzo  de  I98S 

Hola  artistas: 

La  presente  es  para  discrepar  con  vosotros  en  vuestra  decisión  de 
suprimir  las  reseñas  de  intercambio  de  soft  de  la  sección  de 
mercad  illo. 

Pienso  que  es  una  decisión  totalmente  desafortunada  y  una  grave 
falta  de  consideración  hacia  nosotros  (vuestros  lectores)  que  al  fin  de 
cuentas  somos  quienes  os  mantenemos  y  nos  estáis  haciendo  pagar  a 
todos,  justos  por  pecadores. 

Estoy  muy  de  acuerdo  en  que  el  pirateo  (venta  ilegal)  de  soft. 
perjudica  no  sólo  a  las  casas  debidamente  autorizadas  que  se  dedican 
a  su  venta,  sino  a  todos  nosotros,  tal  y  como  correctamente  razonáis 
en  vuestra  editorial  del  ns  13  (marzo),  (sin  ir  más  lejos  yo  mismo 
estudio  programación):  pero  también  soy  consciente,  Y  ESTOY 
SEGURO  DE  QUE  NO  SOY  EL  UNICO  QUE  PIENSA  ASI,  de  que 
los  precios  del  soft  en  España  están  por  las  nubes  (cualquier  juegue- 
cito  más  de  2.000  ptas.).  Y  si  no,  explicarme:  ¿Por  qué  en  Andorra,  los 
mismos  juegos,  mismo  fabricante,  idéntica  procedencia,  etc.,  rondan 
las  800  (ochocientas)  ptas.?  Si,  si,  ya  sé,  me  diréis  que  es  que  allí  no  se 
pagan  impuestos,  pero...  de  800  a  2.000  ptas.  ¿no  os  parece  que  son 
muchos  impuestos?,  es  un  incremento  del  150%.  Todos  sabemos  que 
la  presión  fiscal  está  aumentando  en  este  santo  pais,  pero  gracias  a 
Dios  todavía  no  hemos  llegado  a  ese  nivel.  Entonces,  ¿dónde  va  a 
parar  esa  diferencia?,  creo  que  está  bastante  claro  ¿no?  Pienso  que 
para  ser  comerciante  hay  que  tener  un  mínimo  de  ética  y  no  querer 
matar  la  gallina  de  los  huevos  de  oro  en  dos  días,  porque  luego  pasa  lo 
que  pasa.  Si  me  equivoco,  seguro  que  saldrá  alguien  a  aclarar  esc 
agujero  negro  y  nos  explica  dónde  va  esa  diferencia  o  qué  se  hace  con 
ella  y  obtendrá  mis  disculpas.  Si  no  sale,  ya  sabéis.  QUIEN  CALLA, 
OTORGA. 

Encima,  resulta  que  vas  a  comprarte  cualquier  programa  bueno 
(de  ayuda  al  programador,  procesador  de  textos,  etc...),  y  aparte  del 
precio  (no  por  las  nubes,  sino  por  la  ionosfera),  te  dan  las  instruccio¬ 
nes  en  inglés  o  en  el  mejor  de  los  casos  te  “obsequian"  con  un  mini¬ 
manual  que  teóricamente  es  una  traducción  de  las  instrucciones  ori¬ 
ginales.  Ja,  ja,  que  risa.  ¿Tanto  cuesta  hacer  una  traducción  bien? 

¿Qué  ocurre  entonces?  pues  que  tú  compras  el  programa  "A"  y  yo 
compro  el  programa  "B".  Hacemos  un  intercambio,  y  resultado:  los 
dos  tenemos  el  “A"  y  el  "B".  NO  HAY  OTRA  SOLUCION  ANTE 
ESOS  PRECIOS  ABUSIVOS.  ¿ESO  ES  PIRATEO?.  ¿ESO  ES 
ROBO?  Más  bien  creo  que  es  un  acto  simbólico  de  ayuda  mutua,  se 
trata  de  un  simple  trueque  (te  cambio  una  cabra  por  una  oveja) 
modalidad  que  como  sabéis  se  utiliza  desde  muy  antiguo.  Y  si  no, 
¿cómo  podría  un  sólo  usuario  poseer  una  buena  y  completa  "progra- 
moteca"?,  pues  de  ninguna  manera,  o  gastándose  una  fortuna. 

Creo  que  es  lo  mismo  intercambiar  programas  de  ordenador,  que 
cambiar  sellos  de  Correos,  que  hacerlo  con  postales,  monedas  o  nove¬ 
las  del  oeste.  Lo  importante  es  que  no  haya  ni  una  sola  peseta  por 
medio.  ¿Cómo  evitarlo?  MUY  SENCILLO:  cuando  recibimos  una  de 
esas  propuestas  de  venta,  lo  único  que  tenemos  que  hacer  es  IGNO¬ 
RARLA.  Estoy  convencido  de  que  NUESTRA  INDIFERENCIA 
HARA  DESISTIR  A  LOS  AUTORES. 

Por  otro  lado,  comprendo  vuestra  posición  ya  que  supongo  que 
habréis  recibido  presiones  por  parte  de  los  anunciantes  (comercian¬ 
tes)  que  como  es  lógico,  tratan  de  evitar  estos  intercambios  que  les 
perjudican  a  ellos  directamente  y  al  fin  y  al  cabo  también  ellos  os 
mantienen. 

Bueno,  de  una  u  otra  forma,  creo  que  seria  muy  positivo  por 
vuestra  parte  (rectificar  es  de  sabios)  que  reconsideraseis  vuestra  deci¬ 
sión.  Bueno,  pues  se  acabó,  espero  que  la  presente  no  acabe  en  la 
papelera  y  hasta  la  próxima,  mientras  tanto  recibid  un  cordial  saludo. 

Os  otorgo  total  libertad  para  publicar  total  o  parcialmente  el 
contenido  de  esta  carta  y  al  menos  tendré  el  consuelo  de  no  haber 
perdido  el  tiempo  escribiéndola. 

Juan  Caballero  Díaz 
B9  Ciaudi,  Bl.  C.  3*  n9  8 
Keus (Tarragona) 


Estimados  amigos  de  C.W.:  Soy  suscriptor  (n“  2192)  de  vuestra 
revista  y  gran  aficionado  a  C-64,  que  me  permite  a  mí,  como  a  mi 
mujer  e  hijos  pasar  horas  agradables  en  familia  gracias  a  vuestra 
revista  y  en  especial  a  la  sección  "Mercadillo"  he  contactado  con 
muchos  padres  de  familia,  estudiantes,  etc...,  con  la  misma  afición 
que  yo  por  el  C-64.  También  he  contactado  con  algunos  especialistas 
del  pirateo  ofreciéndome  toda  clase  de  juegos,  aparatos,  etc...,  y  os 
puedo  decir  que  a  esos  listillos  los  he  despreciado  o  mejor  dicho 
ignorado.  Asimismo  también  os  puedo  decir  que  he  recibido  innume¬ 
rables  ofertas  de  compra  de  juegos  y  utilidades  a  las  cuales  no  he 
hecho  el  menor  caso  ya  que  mi  profesión  no  tiene  nada  que  ver  con 
este  mundo. 

Os  digo  todo  lo  anterior  para  que  comprendáis  que  los  puramente 
aficionados  como  yo  vamos  a  sentir  enormemente  que  hayáis  supri¬ 
mido  la  sección  de  mercadillo  dedicado  a  los  intercambios  y  creo  que 
no  es  justo  que  paguemos  los  “justos  por  los  pecadores”.  Supongo 
que  los  anunciantes  en  vuestra  revista  os  han  obligado  a  ello. 

Por  otro  lado  y  en  defensa  del  llamado  “pirateo  casero”  os  debo 
decir  que  muchas  empresas  de  Soft  se  merecen  que  se  les  copien,  se  les 
dañen  económicamente,  etc.,  etc...,  ya  que  salvo  honrosas  excepcio¬ 
nes  el  99%  de  estas  empresas  se  dedican  únicamente  a  importar  y  tal 
como  las  reciben  y  sin  incluir  una  mala  documentación  en  español  lo 
ponen  a  la  venta  en  España.  Yo  he  tenido  la  desgracia  de  comprar  el 
Cale  Result,  Magic  Desk,  etc.,  en  España  y  os  puedo  decir  que  no  hay 
derecho  con  los  precios  ya  que  estos  son  hasta  4  y  5  veces  su  valor  de 
origen  en  las  tiendas  en  EE.UU.  (estoy  suscrito  a  Commodorc  Com¬ 
puter  Gazzete  de  EE.UU.  y  a  RUN  de  Alemania)  y  ya  no  digo  nada  si 
analizamos  precios  para  Hardware. 

Por  todo  lo  anteriormente  dicho  creo  que  al  suprimir  los  inter¬ 
cambios  las  empresas  de  Soft  no  van  a  mejorar  las  ventas  puesto  que 
cuando  se  tiene  ya  un  poco  de  experiencia  y  poseyendo  una  tarjeta 
Diners,  American  Express,  Visa,  etc...,  por  dos  perras  gordas  y  por 
correo  te  envian  de  EE.UU.  o  Inglaterra  cualquier  juego  en  menos  de 
quince  días. 

Lo  que  tienen  que  hacer  esas  empresas  es  dar  calidad  y  precio. 
Todo  lo  demás  viene  detrás. 

Benito  Regidor 

Avda.  de  Valladolid,  47-B  5»  A.  Telf.:  248  00  38 
28008  Madrid 


Hola,  amigos  de  Commodore  World: 

No  soy  suscriptor  de  vuestra  revista,  pero  si  asiduo  lector. 

Os  envió  un  comentario  para  que  si  queréis  lo  publiquéis  en  la 
sección  de  “Cana  Blanca”. 


CONCURSOS  PERMANENTES 

Colaboraciones  de  Programas  y  Magia 


La  verdad  sea  dicha:  os  estáis  portando;  las  colaboraciones  que 
nos  están  llegando  son  numerosas  y  de  muy  buena  calidad.  Por  lo 
tanto,  vamos  a  aclarar  las  condiciones  de  nuestros  concursos 
permanentes. 

1)  Los  soneos  se  realizarán  en  los  meses  de  junio  y  diciembre. 

2)  Se  sortearán  siempre  ocho  premios,  cuatro  de  15.000. 
10.000,  5.000  y  3.000  pesetas  en  metálico  de  "Commodore 
World”  y  cuatro  premios  del  mismo  valor  en  material  de  Micro- 
electrónica  y  Control,  entre  todas  las  colaboraciones  publicadas. 

3)  Se  sortearán  siempre  seis  premios,  tres  de  3.000,  2.000  y 
1.000  pesetas  en  metálico  de  "Commodore  World"  y  tres  del 
mismo  valor  en  material  de  Microelectrónica  y  Control,  entre 
todas  las  contribuciones  publicadas  en  la  sección  de  "Magia". 

4)  Adicionalmente,  se  sonearán  diversos  premios  de  cintas, 
juegos,  objetos  curiosos,  etc.,  entre  todas  las  colaboraciones. 

5)  Los  autores  de  las  colaboraciones  vendidas  dentro  de  nues¬ 
tro  "Servicio  de  Cintas"  percibirán  el  20%  del  precio  de  la  cinta. 

6)  Todas  las  colaboraciones  deben  venir  escritas  a  máquina  y 
los  programas  grabados  en  cinta  (si  es  posible),  o  con  el  listado 
completo  en  impresora.  Nuestros  lectores  más  jóvenes  pueden 
escribir  a  mano  pero  con  letra  muy  clara. 

7)  Quedan  automáticamente  descalificadas  tanto  del  sorteo 
como  del  "Servicio  de  Cintas"  las  colaboraciones  que  hayan  sido 
enviadas  a  otras  revistas. 

8)  Las  colaboraciones  se  enviarán  a  “Commodore  World", 
c/Barquillo,  21-3®  izda.  28004- Madrid. 
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Durante  este  verano  he  estado  en  Estados  Unidos  conviviendo 
con  una  familia.  Yo,  desde  Navidad,  ya  tenia  un  Commodore-64,  y 
siempre  compraba  vuestra  revista:  no  tenia  ni  idea  y  todos  los  pro¬ 
gramas  me  parecían  una  gozada.  Pero  desde  que  llegué  y  compré  la 
revista  RUN  me  quedé  decepcionado;  era  una  réplica  casi  exacta  de  la 
versión  española;  los  mismos  apartados,  las  mismas  gráficas,  e 
incluso  la  caligrafía  del  listado  era  igual.  Las  únicas  diferencias  eran 
la  expresión,  la  portada,  y  que  no  imprimáis  todos  los  programas  de 
esta  revista,  sólo  algunos,  pero  poco  a  poco  lo  iréis  haciendo  (como  el 
programa  Word  Search,  de  julio  del  84,  lo  habéis  publicado  en  Navi¬ 
dad).  Ellos  tampoco  tenían  concursos,  ni  participación  de  los  lectores 
con  programas,  pero  a  pesar  de  eso,  sigue  siendo  muy  parecida  a  su 
colega  estadounidense. 

César  Aguilar 
c/  General  Eguia  ns  10 
48010  Bilbao 


Respuesta  a  las  cartas  anteriores 

1)  Ni  por  un  momento  se  nos  ocurrió  atacar  ni  meternos  con  aficio¬ 
nados,  usuarios  o  profesionales  de  la  informática  que  “destripan"  los 
programas  para  su  propio  uso  o  beneficio  —esto  es  precisamente  parte 
del  juego  del  mundo  de  la  informática,  su  aprendizaje,  investigación, 
etc.—.  Nosotros  somos  los  primeros  que  no  dejamos  sano  programa  que 
cae  en  nuestras  manos,  y  es  incluso  nuest:  a  obligación. 

2)  Tampoco  nos  metemos,  en  absoluto,  con  el  intercambio,  tal  cual, 
de  programas  sean  del  tipo  que  sean. 

lina  cosa  es  el  intercambio  y  otra  cosa  es  la  copia  y  venta  lucrativa 
y,  no  seamos  ingenuos,  muy  lucrativa. 

3)  No  deseamos  ni  vamos  a  hacer  aquí  una  defensa  particular  de  las 
empresas  de  SOFT,  pero  si  de  la  empresa  de  SOFT.  Y,  por  favor,  no  me 
digáis  que  estoy  intentando  hacer  sutilezas  demagógicas.  Las  empresas 
de  soft  y  la  empresa  del  soft  son  dos  temas  muy  distintos. 

En  las  primeras  las  hay,  como  en  cualquier  negocio  o  profesión, 
serias,  muy  serias  y  nada  serias,  incluso  piratas  como  el  que  más.  La 
empresa  del  soft  es  toda  la  inventiva,  creatividad,  desarrollo  y  en 


muchos  casos  riesgo  económico  que  todo  avance  de  la  humanidad  ha 
supuesto  o  supone. 

Aqui  no  hay  diferencias  entre  la  importante  multinacional,  y  el  más 
supermodesto  individuo  particular  que  trabaja  en  una  habitación  de  su 

4)  Nos  habláis  de  las  posibles  presiones  de  los  comerciantes  que  se 
anuncian.  Sobre  esto  si  que  deseo  puntualizar  que  no  somos  simplemente 
una  firma  dedicada  a  publicaciones  generales  o  especializadas.  SIMSA 
es  parte  del  grupo  C.W.  I  ommunications.  compañía  internacional  dedi¬ 
cada  única  y  exclusivamente  al  periodismo  informático.  En  el  mundo  del 
periodismo  hay  presiones  inmensas  procedentes  de  todas  las  esferas.  Las 
que  puedan  ejercer  anunciantes  o  lectores  son  simplemente  una  más.  El 
periodismo  serio  y  responsable  a  muy  pocas  presiones  cede  y  C.W. 
Communications  tiene  fama  a  nivel  internacional  de  no  casarse  con 
nadie  y...  más  de  un  problema  hemos  tenido. 

Y  aqui  si  quiero  dejar  patente  que,  efectivamente,  si  hemos  tenido 
presiones,  pero  muy  particularmente  de  anunciantes  a  los  que  nos  nega¬ 
mos  a  anunciar  precisamente  por  esta  razón,  por  ser  empresas  piratas  y, 
os  puedo  asegurar  que  están  dispuestos  a  pagar  muy  bien  los  anuncios. 

5)  Estamos  de  acuerdo  en  que  el  soft  en  España  es  caro.  Tampoco 
voy  a  meterme  aqui,  ni  es  nuestra  misión,  hacer  un  estudio  de  las  diver¬ 
sas  economías  de  las  casas  de  soft.  ni  del  sistema  económico  en  general. 
Ideologías  sobre  este  tema  las  hay  para  todos  los  gustos  y  aqui  mismo, 
en  la  redacción,  las  tenemos  de  todos  los  colores. 

Nosotros  no  nos  dedicamos  a  la  venta  de  soft.  Nuestro  soft  es  público 
y  todo  el  mundo  puede  copiarlo  dándole  al  teclado  que  es  lo  nuestro. 

Solamente  quiero  hacer  un  par  de  comentarios  generales  con  el  único 
fin  de  aclarar  ideas. 

•  Los  profesionales  del  soft  tienen  toda  una  empresa  que  mantener, 
sueldos,  gastos  de  mantenimiento,  si  son  creadores  larguísimas  horas  de 
trabajo,  si  no  lo  son  altísimos  copyrights.  comisión  de  ventas  a  las 
tiendas  vendedoras,  promoción  y  publicidad  del  producto,  etc.,  etc.  Los 
porcentajes  de  beneficios  o  ganancias  se  van  distribuyendo  a  lo  largo  de 
una  larga  cadena. 

•  El  pirata,  en  un  gran  porcentaje  casero  y  funcionando  por  medio 
de  un  apartado  de  correos,  tiene  una  inversión  de  un  programa  copiador, 
cintas  vírgenes  para  ordenador  (50-60  pías,  en  mayorista),  un  sello  de 
correos  para  enviarlo  y  tres  minutos  de  tiempo  por  copia. 

(Pasa  a  página  57) 


METEDURAS  DE  PATA 


•  En  el  número  14,  el  listado  del  programa  de  gráficos  en  alta  resolución 

salió  mal  por  la  impresora.  El  símbolo  extraño  que  aparece  en  la  linea  20  es  una 
flecha  arriba  “  4  ”  >  ‘  1*1  1  que  aparece  en  otras  (la  200  por  ejemplo)  es 

simplemente  PI  (SHIFT  flecha  arriba). 

•  En  MAGIA,  el  truco  CAMPANA  DE  GAUSS  lleva  invertidos  un  parén¬ 
tesis  y  un  asterisco. 

•  En  el  Reductor  de  Programas  del  número  13,  la  linea  860  ha  de  ser:  IF  N< 
2  THEN  930  y  no  “mayor  que”  como  aparecía  en  el  listado. 


Sorteo  entre  TODOS  los  sucriptores  de: 

1 )  Viaje  para  dos  personas  a  elegir  entre 
París.  Lisboa,  Atenas,  Amsterdam,  Niza. 
Viena,  Canarias,  Mallorca. 

2)  Impresora  donada  por  Microelectró¬ 
nica  y  Control. 

3)  80  programas  valorados  en  160.000 
pías,  donados  por  la  casa  POKE,  S.A.  de 

Barcelona. 
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¡NOVEDAD! 


NOMINAS 


MOD.  1541: 170Kb. 
MOD.1001 :1025Kb. 


AVD.  CESAR  AUGUSTO, 72 
Tlfs. 23  56  82  y  22  6544 
50003  ZARAGOZA 


|§E  NECESITAN  DISTRIBUIDORES 


Cuando  compré  mi  Commodore  64 
dejé  de  lado  sus  usos  más  prác¬ 
ticos  para  dedicarme  al  estimu¬ 
lante,  y  al  mismo  tiempo  desesperante, 
desafio  de  escribir  juegos.  Ocho  sema¬ 
nas  después  había  terminado  mi  crea¬ 
ción. 

“Vaya”,  comentó  uno  que  decía  ser 
mi  amigo,  con  cara  de  poco  convencido 
después  de  someterlo  a  prueba.  “¿Quie¬ 
res  decir  que  ni  siquiera  utiliza  un  joy- 
stick?”. 

Tenia  razón,  aunque  me  costó  admi¬ 
tirlo.  Un  juego  manejado  desde  el 
teclado  no  es,  en  absoluto,  tan  divertido 
como  uno  que  se  juega  con  joystick. 
Desafortunadamente  para  nosotros,  fu¬ 
turos  diseñadores  de  juegos,  no  resulta 
nada  fácil  descifrar  cómo  se  programan 
estos  instrumentos  tan  sencillos. 

Mi  primer  intento  de  introducir  una 
rutina  con  joystick  en  un  juego  hizo  que 
me  esforzara  en  descifrar  las  técnicas 
que  había  descubierto  en  las  últimas 
páginas  de  las  revistas.  Ecuaciones  tales 
como: 

JV  =  15  —  (PEEK  (56321)  AND  15) 
casi  me  hicieron  abandonar.  Podia 
seguir  lo  que  hacían  los  PEEKS  sola¬ 
mente  de  una  forma  vaga,  pero  la 
extraña  combinación  con  un  AND  era 
ya  demasiado.  Y,  para  colmo,  estaba 
lleno  de  paréntesis  por  todas  partes.  El 
resultado  consiguiente  fue  que,  durante 
bastante  tiempo  realmente,  procuré 
encarecidamente  hacer  que  todos  mis 
juegos  fueran  mediante  el  teclado. 

¿A  que  te  suena  familiar?  Pues  enton¬ 
ces  anímate.  Lo  que  se  expone  a  conti¬ 
nuación  es  una  guía  del  principiante 
para  escribir  programas  referentes  a  los 
joysticks.  El  proceso  gira  en  torno  al 
comando  Peek  y  al  comando  And. 

No  te  dejes  arrullar  por  el  sonido  de 
estas  dos  palabras  pues  son  conceptos 
engañosos.  Sin  embargo,  el  aprender 
bien  cómo  utilizarles  trae  consigo 
recompensas  que  se  extienden  más  allá 
de  escribir  código  para  joysticks.  Son 
las  instrucciones  Basic  más  cercanas  al 
lenguaje  máquina  (junto  con  Poke)  y 
para  mí  resultaron  realmente  un  punto 
de  apoyo  básico  para  adentrarme  en 
semejante  mundo. 
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de  hacer  PEEKS 
con  el  joystick 
es  que  no  tienes 
que  calcular 
ningún  número  binario 
mayor  que  el  31. 


Sobre  el  sistema  binario 

Antes  de  atacar  esto,  es  importante 
tener  en  cuenta  algunos  conceptos  bási¬ 
cos  sobre  la  forma  en  que  el  ordenador 
considera  los  joysticks.  Si  tienes  la  Guía 
de  Referencia  de  Programador  del 
Commodore  64,  puede  que  te  hayas 
dado  cuenta  de  que  lo  referente  a  los 
joysticks  se  incluye  en  el  capítulo  de 
Entradas/Salidas.  Esto  es  debido  a  que 
efectivamente  la  lectura  de  las  señales 
producidas  por  el  joystick  es  realmente 
una  forma  más  de  entrada  al  ordenador. 

Tanto  si  conectas  como  si  no  un  joys¬ 
tick,  el  ordenador  comprobará  60  veces 
al  segundo  si  se  ha  introducido  algún 
tipo  de  información  a  la  máquina  a  tra¬ 
vés  de  este  port.  Almacena  esta  infor¬ 
mación  en  una  de  las  64.000  celdas  de 
memoria.  Cada  byte  (o  celda)  del  orde¬ 
nador  tiene  una  dirección.  La  dirección 
para  el  joystick  que  se  encuentra  situado 
en  el  port  1  es  la  56321.  Para  el  que  se 
encuentra  en  el  port  2  es  la  56320. 

Te  recomiendo  que  escribas  estas 
direcciones  en  un  sitio  que  tengas  a 
mano,  ya  que  te  van  a  indicar  constan¬ 
temente  qué  es  lo  que  está  sucediendo 
con  los  joysticks. 

Durante  todo  el  tiempo  en  que  no 
esté  sucediendo  nada  con  los  joysticks, 
se  encontrará  un  1  en  cada  uno  de  los 
primeros  cinco  bits  de  los  bytes  de  joy¬ 
sticks.  El  resultado  de  cinco  l,s  es  31.  Si 
escribes  31  en  binario,  aparecerá  lo 
siguiente:  11111. 


El  bit  que  se  encuentra  situado  más  a  la 
derecha  corresponde  a  la  dirección  más 
alta  del  joystick.  Tan  pronto  como  tires 
hacia  arriba  del  joystick,  el  dígito  de  la 
derecha  se  convertirá  en  el  valor  tí,  y  el 
valor  de  los  últimos  cinco  bits  de  la  posi¬ 
ción  56321  (ó  56320)  cambiará  a  30 
(11110  en  binario). 

El  segundo  bit  de  la  derecha  corres¬ 
ponde  a  un  tirón  del  joystick  hacia  abajo. 
Puesto  que  si  se  encontrase  que  éste  bit 
estuviera  a  1  significaría  que,  al  ser  el 
segundo,  representa  un  2  en  decimal, 
entonces  un  tirón  hacia  abajo,  que  cam¬ 
bia  el  bit  a  cero,  cambiará  el  total  del 
valor  del  byte  a  29  (31  menos  2,  ó  1 1 101 
en  binario). 

El  tercer  bit,  con  un  valor  decimal  de 
cuatro,  te  indica  si  el  joystick  está  siendo 
empujado  hacia  la  izquierda  ( 1 101 1,  ó  27) 
y  el  cuarto  revela  un  empujón  hacia  la 
derecha  (resultando  por  tanto  una  com¬ 
binación  binaria  de  101 1 1,  ó  23  en  deci¬ 
mal).  Si  el  quinto  bit  se  pusiera  a  0,  seria 
porque  se  ha  pulsado  el  botón  de  fuego 
(botón  de  disparo). 

Si  la  lógica  binaria  todavía  no  te  parece 
que  tenga  mucha  lógica,  debes  leer  las 
páginas  75-78  de  la  Guía  del  Usuario. 
Aqui  lo  más  importante  a  tener  en  cuenta 
es  que  los  bytes  56320  y  56321  tienen  8 
conmutadores  representados  por  los  8  bits 
de  cada  byte,  de  los  cuales  los  cinco  situa¬ 
dos  al  final  del  byte  son  los  que  indican 
qué  es  lo  que  está  haciendo  el  joystick  en 
cada  momento.  Si  en  cualquier  posición 
de  estos  cinco  bits  aparece  un  cero,  signi¬ 
fica  que  el  joystick  está  haciendo  algo. 

Deja  de  leer  por  un  momento  y  teclea 
en  el  ordenador  la  rutina  que  se  muestra  a 
continuación  y  que,  además  de  resultar 
sencilla,  sirve  para  ver  una  aplicación  de 
todo  lo  que  se  acaba  de  contar. 

10  JV=31 — (PEEK(56321)  AND  31)  ' 

20  IFJV=1  THEN  PRINT  “ARRIBA" 
30  IFJV=2  THEN  PRINT  “ABAJO" 

40  IF  JV=4  THEN  PRINT 
"IZQUIERDA” 

50  IF  JV=8  THEN  PRINT 
•DERECHA" 

60  IF  JV  >15  THEN  PRINT 
“FUEGO!” 

70  GOTO  10 
READY. 


S-  COMO  USARLOS 
.  EN  TUS  PROGRAMAS 


Histe  artículo  explica  cómo  tu  ordenador  maneja  los  joysticks, _ 

proporcionándote  consejos  y  técnicas  sobre  la  forma  de  usarlos  en  tus  programas. 


Ahora  que  ya  has  entendido  la  forma 
en  la  que  el  ordenador  maneja  los  valo¬ 
res  de  los  joysticks,  el  siguiente  paso  va 
a  consistir  en  encontrar  la  manera  en 
que  pueden  leerse  dichos  valores.  El 
comando  Peck  va  a  hacer  justamente 
eso;  mediante  un  Peek  se  echa  un  vis¬ 
tazo  al  contenido  de  la  posición  de 
memoria  que  le  indiques  al  ordenador. 
De  esta  forma,  si  tecleas  Peek  (56321),  el 
ordenador  va  a  tomar  el  valor  que  se 
encuentre  correspondiente  al  joystick  l. 
(Por  favor,  fíjate  en  los  paréntesis, 
totalmente  necesarios,  entre  los  que  se 
inserta  la  dirección  de  la  posición  de 
memoria  que  se  intenta  investigar). 

Sin  embargo,  si  únicamente  tecleas 
PEEK  (56321),  el  ordenador  olvidará 
inmediatamente  qué  es  lo  que  ha  visto. 


Por  consiguiente,  debes  de  asignar  una 
variable  a  este  valor.  Por  ejemplo; 

J1  =  PEEK  (56321) 

De  esta  manera,  cada  vez  que  pases  a 
través  de  esta  sentencia,  se  actualiza  J I 
con  el  valor  actual  del  joystick  1. 

Eso  es  bastante  sencillo.  Cuando 
entres  en  el  mundo  de  los  PEEKS  más 
sofisticados  que  manejan  sprites  y  gráfi¬ 
cos,  es  cuando  las  cosas  empiezan  a 
ponerse  realmente  duras.  Puesto  que  la 
lectura  de  los  joysticks  no  tiene  nada 
que  ver  con  eso,  podemos  continuar. 

_ El  comando  AND _ 


Lo  cómodo  de  hacer  PEEKS  con  el 
joystick  es  que  no  tienes  que  calcular 
ningún  número  binario  mayor  que  el  31. 
Esto  me  causó  una  gran  confusión  en  mi 
primer  intento  de  incorporar  valores 


para  el  joystick  dentro  de  mis  rutinas. 
Para  poder  leer  solamente  los  primeros 
cinco  bits,  tienes  que  separarlos  de  los 
otros  tres  bits  que  componen  el  byte.  El 
lenguaje  Basic  y  el  código  máquina 
ofrecen  la  misma  técnica  para  realizar 
esta  operación:  el  comando  And. 

Esta  simple  palabra,  que  se  encuentra 
en  todas  partes,  es  uno  de  los  conceptos 
más  duros  de  aprender  para  muchos  de 
los  programadores  que  comienzan.  Las 
frases  que  intentan  explicar  el  concepto 
—operadores  lógicos,  tablas  de  verdad 
booleanas  y  máscaras  de  bit —  no  ayu¬ 
dan  demasiado. 

Para  ilustrar  la  utilización  del  co¬ 
mando  And.  imagina  que  acabas  de 
hacer  un  Peek  en  la  posición  56321. 
Ahora  vas  a  recubrir  el  byte  de  ocho  bits 
con  otro  byte.  Imagina  que  este  nuevo 
byte  es  una  fila  de  ocho  ventanas  que  se 
superponen  justamente  encima  del  byte 
del  joystick  que  acabas  de  encontrar 
mediante  el  Peck  anterior.  Si  asignas  a 
cada  una  de  las  ventanas  un  valor  de  I. 
cada  una  de  estas  se  abrirá  y  revelará  el 
bit  correspondiente  que  tenga  debajo  y 
que  pertenece  al  byte  del  joystick. 

Puesto  que  quieres  ver  única¬ 
mente  los  5  últimos  bits  de  la 
posición  de  memoria  56321, 
hay  que  abrir  solamente 
las  ventanas  0  —  4  del 
byte  de  recubrimiento. 
Esto  hace  que  el  valor 
sea  31.  El  comando 
And  sitúa  este  byte 
como  recubrimiento 
del  valor  de  la 
posición  56321. 
Puesto  que 
únicamente 
las  venta¬ 
nas  0—4 


J®YSTICKS 


Como 

se  ha  establecido 
con  anterioridad, 
estos  números 
están  constantemente 
cambiando 
cuando  se  conecta 
el  mando  joystick, 
incluso 
si  no  los  está 
leyendo  nadie. 


abiertas,  los  único  que  lees  son  los  bits 
0—4;  los  bits  5,  6  y  7  son,  por  tanto, 
despreciados  y  puestos  a  cero.  De  esta 
manera,  el  valor  que  ves  a  través  de  este 
byte  que  hace  de  máscara  estará  com¬ 
prendido  entre  0  y  31. 

Desde  este  punto  de  vista,  es  bastante 
simple  la  cuestión  de  descifrar  la  direc¬ 
ción  a  la  cual  está  apuntando  un  joys¬ 
tick.  Las  páginas  13  y  14  de  tu  manual 
de  referencia  se  refieren  a  esto. 

A  continuación  se  presenta  una  ver¬ 
sión  actualizada  de  la  sentencia  utili¬ 
zada  para  el  joystick. 

J1  =  PEER  (56321)  AND  31 
Ahora,  cada  vez  que  el  bucle  haga 
que  pase  el  programa  a  través  de  esta 
sentencia,  te  indicará  cuáles  son  los 
cinco  bits  más  bajos  de  la  posición 
56321.  Si,  como  ocurre  en  el  caso  más 
frecuente,  únicamente  necesitas  com¬ 
probar  la  dirección  del  joystick  y  no  del 
botón  de  disparo,  puedes  utilizar  el 
valor  15,  en  lugar  del  valor  31,  después 
del  comando  And,  ya  que  ya  no  es  nece¬ 
sario  que  te  fijes  en  el  bit  que  se  encuen¬ 
tra  en  el  cuarto  lugar  (con  un  valor  de 
16,  por  tanto).  Cuando  quieras  com¬ 
probar  únicamente  el  botón  de  disparo, 
utiliza 

J1  =  PEER  (56312)  AND  16 
Esta  sentencia  abre  la  ventana  cuarta 
únicamente  para  desvelar  el  estado  del 
botón  de  disparo. 

Definiendo  los  valores  del  joystick 


L  Tienes  que  aprender  un  último  truco. 
Generalmente  los  programadores  pre- 
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fieren  obtener  una  lectura  inversa  del 
valor  del  joystick.  Por  ejemplo, 

J1  =  PEER  (56321)  AND  15 
te  devolverá  un  valor  de  14  si  el  joystick 
está  apuntando  hacia  arriba.  Es  más 
fácil  pensar  que  realmente  es  esto  si  se 
indica  con  un  1  en  lugar  de  un  0,  puesto 
que  asi  se  ve  que  se  relaciona  directa¬ 
mente  con  el  bit  de  la  posición  0.  Para 
conseguir  que  esto  sea  asi,  la  sentencia 
debe  alterarse  para  que  quede  como  se 
indica  a  continuación: 

J1  =  15  —(PEER  (56321)  AND  15) 

Esto  tiene  la  conveniencia  adicional 
de  mantener  el  resultado  dentro  del 
margen  que  va  desde  0  a  10,  como 
puede  apreciarse  en  la  tabla  adjunta. 

Rápidamente,  revisemos  los  concep¬ 
tos  anteriores  con  la  ayuda  de  la  tabla 
que  debe  estar  a  la  vista:  joystick  arriba, 
el  bit  0  se  pone  a  0;  cuando  abajo,  el  bit 
1  se  pone  a  0;  joystick  a  la  izquierda,  el 
bit  2  se  pone  a  0;  joystick  a  la  derecha,  el 
bit  3  se  pone  a  0.  Ahora  veamos  la  tabla  1. 

Fíjate,  ¿qué  es  lo  que  está  sucediendo 
aqui?  ¿Qué  tienen  que  ver  esas  diagona¬ 
les?  Fácil.  Arriba  y  a  la  izquierda  dejará 
activados  a  1  únicamente  los  bits  1  y  3, 
generando  un  valor  de  10  (15  menos  10 
es  5).  Arriba  y  a  la  derecha  dejará  acti¬ 
vados  únicamente  los  bits  1  y  2,  propor¬ 
cionando  un  valor  de  6  (15  menos  6  es 

9) .  Abajo  y  a  la  izquierda  dejará  activa¬ 
dos  los  bits  0  y  3,  que  da  un  total  de  9 
(15  menos  9  es  6).  Abajo  y  a  la  derecha 
dejará  activados  los  bits  0  y  2,  resul¬ 
tando  en  un  valor  de  5  (15  menos  5  es 

10) . 

No  es  posible  tener  un  valor  que  esté 
por  debajo  del  5.  (Por  ejemplo,  un  4  sig¬ 
nificaría  que  el  joystick  estaba  siendo 
empujado  en  cualquier  dirección  excepto 
a  la  izquierda,  siendo  esto  una  posibili¬ 
dad  que  se  encuentra  más  allá  del  obje¬ 
tivo  de  incluso  el  joystick  más  ave¬ 
zado.  También  fíjate,  que  los  valores  12 
y  8  no  dan  como  resultado  ninguna 
dirección. 

Como  se  ha  establecido  con  anterio¬ 
ridad,  estos  números  están  constante¬ 
mente  cambiando  cuando  se  conecta  el 
mando  joystick,  incluso  si  no  los  está 
leyendo  nadie.  Son  actualizados  60 
veces  al  segundo,  frecuencia  que  suele 
ser  suficiente  para  comprobar  y  llevar  a 
cabo  cualquier  cosa  que  quieras.  ¿Qué 
paso  viene  después  de  que  se  haya  leído 
este  valor?  Utilizarlo.  Intenta  que  fun¬ 
cione  esta  sencilla  rutina  que  se  da  a 
continuación: 

10  PORE  53281, 0:PRINT“J”: 

PORE53281.1 
20  X=I490:J  1=56321 


30  POREX.81 

40  JV=15 — (PEER(J1)AND15) 

50  IFJV=4THENX=X — I: 

POREX+1,32 
60  IFJV=THENX=X+1: 

POREX — 1,32 
100  GOTO30 
READY. 

Si  tecleaste  todas  las  sentencias 
correctamente,  debes  ser  capaz  de 
manipular  una  bola  de  lado  a  lado  de  la 
pantalla  con  el  joystick  enchufado  al 
port  1.  Si,  es  verdad,  es  una  bola 
borrosa  como  mucho,  pero  consigue 
demostrar  lo  simple  que  resulta  utilizar 
un  mando  joystick.  Cualquier  posicio- 
namiento  direccional  diferente  de  los  de 
izquierda  y  derecha  no  van  a  ser  leídos. 
Esto  es  debido  a  que  si  el  resultado  de  la 
lectura  del  joystick,  que  se  realiza  en  las 
lineas  40  y  50,  no  es  un  4  ó  un  8,  enton¬ 
ces  el  programa  no  hace  nada  excepto 
volver  al  comienzo  del  bucle  para  reali¬ 
zar  la  comprobación  una  vez  más. 


Tabla  I. 

Equivalencias  de  los  valores  resultantes 
de  realizar  un  Peek  del  Joystick 


Valor  del 
mando 
(56321) 
15 
14 
13 
12 
11 
10 
9 
8 


15  menos  el 
valor  del 

mando  Dirección 

0  ninguna 

1  arriba 

2  abajo 

3  ninguna 

4  izquierda 

5  arriba-izquierda 

6  abajo-izquierda 

7  ninguna 

8  derecha 

9  arriba-derecha 

10  abajo-derecha 


Podrías  hacer,  con  mucha  facilidad, 
que  las  diagonales  también  te  moviesen 
a  la  izquierda  o  a  la  derecha  respectiva¬ 
mente,  simplemente  añadiendo  dichas 
condiciones  a  las  líneas  50  y  60.  Por 
ejemplo,  50  podría  leerse  como: 

IF  JV=4  OR  JV=6  THEN... 

O  podrías  añadir  una  línea  70  de 
forma  que  quedase: 

(IF  PEER(56321)AND16)=0  THEN 
PORE  53281,0 


Contabilidad  -  64 
así  de  fácil. 

El  programa  Contabilidad  64  es  líder  en  ventas, 
por  su  sencillez,  rapidez,  eficacia  y  precio. 


COMO  INICIAR  LA  ENTRADA  DE  DATOS  EN  EL  PLAN  CONTABLE 


Seleccione  el  número  6  de  «menú  general»  y 
aparecerá  en  pantalla  el  submenú  «utilita¬ 
rios».  Llame  el  número  1  y  haga  una  copia  del 
disco.  El  original  no  se  debe  utilizar  como  dis¬ 
co  de  trabajo. 


nenie  pera  los  mlcroordenadon 
CUTI  VE. 

■I  programa  llene  capacidad  par 
o  Ilimitado  de  apuntes  o  regís! 
na  permite  generar  nuevos  dlso 
jercldo  contable. 

Contabilidad  64  permite  regena 
os  ficheros,  verificar  el  disco,  el 
le  Contabilidad  64  un  producto  i 
a  Asimismo  Contabilidad  64  p 
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Ahora, 

cuando  pulsas 
el  botón  de  disparo 
en  cualquier 
momento, 
la  pantalla 
se  volverá  negra. 
Básicamente, 
lo  que  está  sucediendo 
aquí  es  que  estás 
definiendo  el  joystick. 


Ahora,  cuando  pulsas  el  botón  de 
disparo  en  cualquier  momento,  la  pan¬ 
talla  se  volverá  negra.  Básicamente,  lo 
que  está  sucediendo  aquí  es  que  estás 
definiendo  el  joystick.  Puede  causar  el 
efecto  que  quieras.  Puede  incluso 
imprimir  una  palabra.  Sólo  tienes  que 
modificar  la  linea  SO  para  que  quede: 

IF  JV=  I  THEN  PRINT“OUCH!” 

Ahora  cualquier  movimiento  hacia 
arriba  tendrá  como  resultado  que  la 
pantalla  reaccione  quejándose. 

Alcanzando  mayor  sofisticación 


Puedes  y  debes  experimentar  con 
unas  cuantas  rutinas  sencillas  como  las 
que  se  han  listado  anteriormente  para 
conseguir  alcanzar  una  mejor  compren¬ 
sión  de  los  conceptos  que  se  encuentran 
involucrados  en  el  lema.  Sin  embargo, 
encontrarás  en  el  diseño  de  juegos, 
especialmente  en  Basic,  que  este  tipo  de 
rutinas  es,  con  mucha  frecuencia,  dema¬ 
siado  lento,  particularmente  cuando 
tienes  un  buen  montón  de  sentencias 
II...  Thcn  dentro  del  bucle.  Existe  una 
manera  mejor,  pero  no  es  tan  fácil  de 
entender  como  la  anterior. 

Una  rutina  más  sofisticada  no  puede 
incluir  un  puñado  de  sentencias  del  tipo 
IF  joystick  igual  a  esto  THEN  haz  eso 
otro.  En  su  lugar,  el  resultado  de  reali¬ 
zar  un  Peek  al  joystick  tiene  que  alimen¬ 
tar  directamente  a  una  variable  concreta 
cuya  acción  debe  haberse  definido  ya 
con  anterioridad.  A  continuación  se 
expone  cómo  funciona  esto. 
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Al  principio  del  programa,  lee  las 
acciones  que  deseas  que  se  lleven  a  cabo 
con  cada  movimiento  del  joystick  para 
que  se  introduzcan  en  una  variable  cuyo 
valor  interno  sea  el  valor  correspon¬ 
diente  al  mando  joystick.  ¿Complicado? 
Entonces  estudia  el  listado  I . 

Esta  rutina  demuestra  los  valores  sus¬ 
critos  del  joystick  con  la  ayuda  de  un 
sprite.  Las  lineas  10  y  20  cargan  un 
array  con  los  valores  0,  I  y  -1.  Las  líneas 
40 — 60  establecen  los  parámetros  del 
sprite.  La  linea  80  lee  el  joystick  y  la 
linea  100  hace  un  Poke  a  las  coordena¬ 
das  X  e  Y  de  tu  sprite  con  los  valores  del 
joystick.  La  linea  110  cierra  el  bucle 
para  que  se  comience  de  nuevo  otra  vez. 

Esta  pequeña  técnica  es  una  joya. 
Date  cuenta  de  que  no  hay  ninguna  sen¬ 
tencia  If...  Then.  Se  han  evitado  intro¬ 
duciendo  los  valores,  proporcionados 
por  el  joystick,  dentro  de  matrices  con 
sentencias  Poke.  Por  ejemplo,  si  se 
hubiera  apuntado  hacia  arriba  a  tu  joys¬ 
tick,  la  línea  80  habría  asignado  un  1  a 
JV.  La  linea  100  habría,  por  tanto, 
insertado  ese  I  en  las  dos  variables  A(  ) 
y  B(  ).  Luego  A(l)  igual  a  -I.  Se  hace 
Poke  V+l  (tu  coordenada  Y)  consigo 
mismo  más  el  uno  negativo  de  A(l),  y  el 
sprite  se  desplaza  un  pixel  más  arriba 
en  la  pantalla.  No  se  mueve  diagonal¬ 
mente  porque  B(  1 )  es  un  0,  y  puesto  que 
añades  eso  a  tu  coordenada  X  en 
POKE  V,  PEEK  (V)+B(l) 
no  tiene  lugar  ningún  movimiento  hori¬ 
zontal. 

Esta  rutina,  tal  y  como  está,  se  ejecuta 
bastante  rápidamente.  Es  una  buena 
forma  de  permitir  que  se  escriban  juegos 
en  Basic  con  una  velocidad  suficiente. 
Todos  los  ls  de  la  rutina  representan  el 
número  de  posiciones  que  quieres  que 
tu  sprite  se  mueva  de  una  sola  vez  — creo 
que  con  tres  es  suficiente  para  que  pue¬ 
das  verlo  de  una  forma  fácil.  Incluso 
todavía,  con  la  velocidad  de  esta  téc¬ 
nica,  pueden  ejecutarse  para  realizar 
comprobaciones  muchas  sentencias  If... 
Then,  que  buscan  colisiones  y  otras 
condiciones  típicas  en  los  juegos,  sin 
disminuir  demasiado  la  velocidad. 

Desde  luego,  si  quieres  realmente  que 
se  hagan  las  cosas  de  forma  rápida,  tie¬ 
nes  que  realizarlas  en  código  máquina. 
Aunque  el  explicar  tales  procedimientos 
se  encuentra  más  allá  de  la  meta  de  este 
artículo,  he  incluido  una  rutina  (ver  lis¬ 
tado  2)  que  puede  utilizarse,  sin  ningún 
conocimiento  cíe  código  máquina,  para 
mover  cosas  de  un  lado  a  otro.  No 
incluye  el  estado  de  disparo.  Para  utili¬ 
zar  esta  rutina  dentro  de  tus  programas. 


LISTADO  1 


lü  FOR  1=  I  TOIO:READA(T),B(T): 
NEXT 


20  DA  T  A- 1 .0. 1 ,0,0,0.0.- 1 .- 1 .- 1 , 1 1 ,0  0 

1,1,1 

40  V=53248:FOR  I  12288 TOI2350: 


50  POKE2040,  l92:POKEV,l(X): 
POKEV+1,100 

60  POKEV+39.l2:POKEV*2l.ll 
J 1-56321 

80  JV=  15 — (PEEK(.II)ANDIS) 
100  POKE V, PE E K( V )+'B( .IV); 

POKEVt  I.PEEKl  V+  l)+A(JV) 
1 10  GOTO80 


LISTADO  2 

10  FORT=49152TO49204:READA: 
POKE T,A:N  EX  I 

40  FORT- 12288 TO 12350: POKET.255: 

NEX  T:V=53248 
50  POKE2Ü40,I92:POKEV,IOO: 
POKEV+1,100 

60  POKEV  +  39, 12:P()KE  V  +  21 ,1:J  I  = 
56321 

100  SYS49I52 
110  GOTOIOO 

200  DAT  A 1 73. 1 .220,4 1 . 1 5.20 1 , 1 4.240. 1 5. 
201.13,240.18 

210  DATA201.1 1,240,21.201.7.240.24,76, 
0,192,206,1,208 

220  DATA206, 1 .208,96,238. 1 ,208,238, 1 , 
208,96,206,0 

230  DATA208,206,Ü.20X.96.238,0.208. 
238,0,208,96.0 


incluye  la  linea  10  y  las  líneas  Data  en 
algún  sitio  al  comienzo  de  tus  progra¬ 
mas  y  pon  un  SYS  49152  en  el  bucle 
principal  de  tu  programa.  El  ejemplo 
que  se  muestra  lo  hace  así.  Estúdialo 
para  entender  cómo  funciona. 

Si  esto  resulta  demasiado  complejo 
para  tí,  no  te  desanimes.  Sólo  tienes  que 
intentar  poner  las  rutinas  como  se  listan 
aquí;  llega  a  familiarizarte  con  ellas  y 
pronto  estarás  utilizando  los  joysticks 
en  tus  juegos  como  un  profesional. 


El  FICHERO  GRAFICO 

ESCRIBA  Y  DIBUJE  SOBRE  LA  MISMA  HOJA. 

LAS  POSIBILIDADES  SON  ILIMITADAS... 

INFORMES,  ESQUEMAS,  FICHEROS  GRAFICOS,  CROQUIS  CON  ACOTACIONES. 
PRESUPUESTOS,  PEQUEÑOS  PLANOS.. 


Grabación  en  cassette 

E9  a  we,ocidad  de  D,sco 

Y  SUS  INCREIBLES  PROGRAMAS 


TODOS  LOS  PROGRAMAS  EN  CASSETTE  O  DISKETTE 


INCREDIBLE  MUSICAL  KEYBOARD  CASSETTE  C64T 1 


>«522.. 


OCUPACION  HOTEL 

Control  diario  de  la  ocupación  de  hasta  1 90  habitaciones.  Tipo  de  pensión,  número  de  personas,  agencia,  fechas  de  entrada 
V  salida.  Listados.  Búsqueda  por  todos  los  conceptos  anteriores.  Versión  disco. 

RESERVAS  HOTEL 

Control  por  quincenas  del  número  de  habitaciones  reservadas  durante  todo  el  año.  Listados  y  consultas.  Tabla  de  valores 
de  las  monedas  extranjeras  para  cálculo  de  cambio  de  moneda.  Versión  disco. 

ADMINISTRACION  DE  FINCAS  - 

Propiedad  Vertical:  30  inmuebles.  20  viviendas  por  inmueble.  oeseo  recibir  información 
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gos.  Versión  disco. 


casa  de 
software  sa. 


En  Nimbots,  tú  y  el  ordenador  — u 
otra  persona  que  sea  tu  oponen¬ 
te —  os  vais  turnando  para  quitar 
entre  uno  y  cuatro  Nimbots  de  acuerdo 
con  ciertas  reglas.  Para  mover,  tienes  que 
teclear  las  letras  de  los  Nimbots  que 
quieres  quitar  y  pulsar  después  la  tecla 
Rcturn.  Los  Nimbots  que  quites  de  una 
sola  vez  deben  estar  situados  en  línea 
recta,  ya  sea  horizontal  mente  o  siguiendo 
cualquiera  de  las  diagonales,  pero  no 
verticalmente,  y  además,  no  puede 
haber  ningún  espacio  entre  ellos.  Por 
ejemplo,  ADHL  podría  ser  un  movi¬ 
miento  que  se  consideraría  legal,  pero 
ADL  no  serviría  —independientemente 
de  que  H  esté  situado  o  ya  haya  desapa-  - 
recido  de  su  sitio.  (El  ordenador  no 
aceptará  movimientos  ilegales).  El  juga¬ 
dor  que  se  vea  obligado  a  realizar  el 
último  movimiento  será  el  que  pierda. 


Pronto 
te  enfrentarás 
con  una  docena 
de  repugnantes  Nimbots, 
cuya  única  obsesión 
es  presidir  tu  derrota. 
Este  ingenioso 

_ juego  de  la  mente 

es,  al  mismo  tiempo, 

_ divertido _ 

_ y  desafiante _ 


Ocho  versiones 

Las  reglas  antedichas  describen  la 
versión  estándar.  Cuando  ya  seas  un 
maestro  en  esta  versión,  puedes  intentar 
una  variante  según  la  cual  el  objetivo 
del  juego  es  justamente  lo  contrario: 
tienes  que  intentar  que  seas  tú  el  que 
tomes  el  último  Nimbot. 

Hay  algunas  versiones  en  las  que  se 
renuncia  a  la  regla  de  no-espacios,  es 
decir,  todas  las  letras  seguidas,  de 
manera  que,  por  ejemplo,  el  movi¬ 
miento  FHI  podría  ser  un  movimiento 
aceptable  (a  pesar  de  la  ausencia  de  G). 
Sin  embargo,  la  regla  de  seguir  las  lincas 
rectas  se  aplica  a  todas  las  versiones. 

En  cualquiera  de  las  cuatro  variantes 
pueden  jugar  una  o  dos  personas.  Esto 
te  proporciona  un  total  de  ocho  alterna¬ 
tivas  entre  las  que  puedes  elegir  una. 


Antepasados 

del 

Nimbots 


Nimbots  es  uno  de  los  muchos  descendientes  de  Nim,  un 
juego  en  el  que  dos  jugadores  se  turnan  en  quitar  una  o 
más  fichas  de  uno  cualquiera  de  varios  montones.  El 
jugador  que  no  puede  hacer  un  movimiento  es  el  perdedor,  en 
otras  palabras,  el  ganador  es  el  que  consigue  coger  la  última 
ficha  o  grupo  de  fichas. 

Después  de  jugar  a  este  juego  durante  un  rato,  empiezas  a 
reconocer  ciertas  posiciones  “seguras"  a  partir  de  las  cuales  tu 
oponente  es  imposible  que  gane.  Dos  montones  iguales  son 
una  posición  segura:  haga  lo  que  haga  tu  oponente  en  un 
montón,  tienes  que  hacer  lo  mismo  en  el  otro.  Por  consi¬ 
guiente,  el  jugar  al  Nim  con  tres  montones,  cada  uno  de  los 
cuales  contenga  una,  dos  y  tres  fichas,  respectivamente,  es  una 
posición  segura  ya  que  siempre  puedes  igualar  el  primer 
movimiento  de  tu  oponente  y  forzar  montones  iguales. 

El  VIC-20  es  uno  de  los  muchos  microordenadores  cons¬ 
truidos  en  base  a  un  microprocesador  6502.  En  el  conjunto  de 
instrucciones  del  6502  se  incluye  la  instrucción  EOR,  u  “OR 
Exclusivo".  La  instrucción  EOR  compara  dos  números  bina¬ 
rios,  bit  a  bit,  dando  como  resultando  0,  cuando  los  respecti¬ 
vos  bits  son  idénticos,  y  un  1  cuando  encuentra  que  son 
diferentes. 

Por  ejemplo,  si  se  aplica  la  operación  de  Or  exclusivo  con 
los  números  89  y  108,  el  resultado  seria  53.  Este  ejemplo  sirve 


para  ilustrar  a  qué  razón  es  debido  el  que  se  le  denomine 
generalmente  a  esta  instrucción  “suma  sin  acarreo". 

89  (decimal)  =  101 1001  (binario) 

108  (decimal)  =  1 101 100  (binario 

53  (decimal)  =  01 10101  (binario) 

Resulta  obvio  que  aplicar  la  operación  de  Or  exclusivo  a  un 
número  consigo  mismo  va  a  tener  como  resultado  un  0.  De 
igual  forma,  la  operación  1  EOR  2  EOR  3  va  a  tener  como 
resultado  un  0. 


Sálvalo  primero 


pulsando  la  tecla  de  función  que  sea  la 
adecuada,  de  acuerdo  con  la  tabla  que 
se  expone  a  continuación. 


En  las  versiones  de  un  jugador,  si  no 
quieres  hacer  la  jugada  de  apertura, 
para  iniciar  el  juego,  lo  único  que  tienes 
que  hacer  es  simplemente  pulsar  la  tecla 
Return  y  el  ordenador,  de  esta  forma, 
jugará  primero. 

Cuando,  al  iniciar  el  juego,  se  te  pide 
que  lo  digas,  tienes  que  seleccionar  el 
nivel  de  dificultad  que  quieras  desde  el 
cero  hasta  el  nueve.  En  los  niveles  más 
altos,  el  ordenador  juega  impecable¬ 
mente  — pero  tienes  que  tener  en  cuenta 
que  puedes  vencerle  todavía,  siempre 
que  hagas  todos  los  movimientos  de 
forma  correcta.  En  los  niveles  inferio¬ 
res,  el  ordenador  actúa  a  menudo  de 
una  forma  aleatoria. 


1  (decimal)  =  001  (binario) 

Tomando  1  de  cualquier  montón  se  reduce  la  suma-nim  a  0. 
No  puedes  ganar  si  te  enfrentas  a  situaciones  tales  como:  2,  5, 
7,  ó  3,  4,  7,  ó  3,  5,  6  (a  menos  que  tu  contrincante  cometa  un 
error  en  alguna  jugada  posterior). 

Ahora  viene  lo  contrario.  Normalmente  este  juego  tiene 
establecido  como  objetivo  justo  lo  inverso:  tienes  que  intentar 
que  el  otro  jugador  tome  la  última  ficha.  La  estrategia  que 
debe  seguirse  con  esta  versión  se  le  deja  como  ejercicio  al 
lector. 

(Pasa  a  pág.  16) 


Antes  de  que  hubiese  ordenadores,  los  matemá¬ 
ticos  tenían  otro  nombre  para  esta  operación:  la 
denominaban  la  suma-nim.  ¡  La  suma-nim  de  cualquier 
posición  segura  en  el  juego  del  Nim  resulta  que  es  0! 

Una  versión  de  Nim  comienza  con  tres  montones  de  3, 5 
y  7  fichas.  Puedes  calcular  la  suma-nim  y  comprobar  que 
el  resultado  es  1.  Por  ejemplo: 


3  (decimal)  =  011  (binario) 
5  (decimal)  =  101  (binario) 
7  (decimal)  =111  (binario) 


Nimbots  está  escrito  en  Basic,  con 
una  subrutina  de  lenguaje  máquina  a  la 
que  se  le  hace  POKE  en  el  buffer  del 
cassette  y  que  comienza  en  la  posición 
de  memoria  direccionada  con  828.  Para 
evitar  la  pérdida  de  un  programa  que  no 
esté  aún  verificado  ni  probado,  asegú¬ 
rate  de  que  lo  salvas  al  menos  una  vez 
antes  de  que  lo  vayas  a  ejecutar. 

El  total  de  valores  que  puede  haber  en 
el  array  M'/í  es  de  49680  y  la  suma  de 
todos  los  números  a  los  que  se  les  hace 
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Poke  en  las  posiciones  de  memoria  828- 
1003  es  de  24627.  Antes  de  que  vayas  a 
ejecutar  el  programa  de  Nimbots,  tienes 


viese  cualquier  otro  número,  se  habrá 
producido  un  error  en  algún  lugar 
situado  entre  las  instrucciones  Data  que 
van  de  la  30  a  la  100.  Cuando  consigas 
que  se  ejecute  de  manera  totalmente 
correcta,  reemplaza  la  línea  25  con  la 


Esta  vez,  si  no  obtienes  el 
24627,  tienes  un  error  en  las  E 
van  desde  la  linea  828  a  la  líi 


mes  el  número 
n  las  Data  que 


El  programa  debe  presentar  en  pama-  Cuando  consigas  que  funcione  de  foi 
la  el  número  49680  y  parar.  Si  se  obtu-  correcta,  borra  la  linea  125. 
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Cómo  funciona  el  programa 

Puesto  que  hay  12  nimbots,  y  cada  uno  de  ellos  puede  que 
est¿  o  que  no  esté,  hay  4.096  configuraciones  posibles  (2  ele¬ 
vado  a  la  12“  potencia).  Cada  uno  de  los  elementos  del  array 
A%  contiene  un  número  que  indica  al  ordenador  qué  movi¬ 
miento  tiene  que  hacer  si  encuentra  la  posición  correspon¬ 
diente.  Si  un  elemento  contiene  un  0,  entonces  dicha  posición 
es  segura  (para  el  contrincante)  o  es  una  posición  que  no 
puede  analizarse  (en  la  versión  de  baja  dificultad),  y  el  ordena¬ 
dor  mueve  de  forma  aleatoria. 

Vamos  a  ver  una  muestra  de  cómo  se  puede  jugar  con  un 
ejemplo  en  el  que  se  supone  que  tenemos  una  situación  en  la 
pantalla  en  la  que  puede  verse  que  A,  F,  J,  K  y  L  están 
visibles.  A%  (21 19)  representa  esta  situación.  En  binario,  21 19 
es  10000 10001 11.  Las  letras  del  alfabeto  A-L  van  de  izquierda 
a  derecha  en  este  número  binario.  (Incluye  los  ceros  para  que 
el  número  de  12  dígitos  resultante  coincida  con  los  12  Nimbos 
alfabetizados).  Si  A%  (2119)  contiene  6,  que  se  decodifica 
como  0000000000110,  entonces  el  ordenador  seleccionará  los 
Nimbots  J  y  K,  dejándote  con  tres  Nimbots  aislados  (A,  F  y 
L)  y  una  derrota  inevitable,  suponiendo  que  se  está  jugando 
según  las  reglas  de  la  versión  normalizada  de  juego  sin  espa¬ 
cios  intermedios  y  que  pierde  la  última  persona  que  tiene  que 
quitar  un  Nimbot. 


¿Cómo  se  consigue  que  A%  contenga  estos  valores?.  Hay  72 
movimientos  legales,  incluyendo  todas  las  versiones,  y  se 
encuentran  almacenados  en  el  array  M%.  Por  ejemplo,  M% 
( 1 3)  quizá  contenga,  o  puede  que  no,  un  6  ya  que  este  valor  del 
array  hace  que  se  barajen  todos  los  valores  para  conseguir  que 
el  juego  sea  aleatorio.  En  binario,  6  es  0000000001 10.  que  co¬ 
mo  ya  se  ha  visto  anteriormente,  se  refiere  a  los  Nimbots  J  y  K. 

A%  es  muestreado  desde  el  principio  al  final.  Cuando  se 
encuentra  un  elemento  que  contiene  un  cero,  es  decir,  que 
representa  una  posición  segura,  entonces  cada  uno  de  los 
movimientos  autorizados  en  M%  que  podrían  conducir  a  esa 
posición  se  añaden  al  índice  (seguro),  proporcionando  el 
indice  de  una  posición  no  segura.  El  movimiento  en  M% 
entonces  se  almacena  en  cada  una  de  las  posiciones  que  el 
ordenador  ha  calculado  que  no  son  seguras. 

Refiriéndonos  al  ejemplo  expuesto  antes,  A%  (2113)  con¬ 
tiene  un  0  —luego  es  una  posición  segura.  Hay  muchos 
movimientos  en  M%  que  podrían  conducir  a  esa  posición, 
uno  de  los  cuales,  en  M%  (13),  es  un  6.  Sumando  6  a  21 13  da 
un  resultado  de  2119.  De  esta  manera,  se  llega  a  almacenar  un 
6  en  M%  (2119). 

Desde  luego,  todo  lo  que  se  ha  expuesto  se  realiza  antes  de 
que  realices  el  primer  movimiento.  Es  un  procedimiento  que 
lleva  unos  20  minutos  en  lenguaje  BASIC,  sin  embargo,  sola¬ 
mente  dura  aproximadamente  un  par  de  segundos  con  la 
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4 
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este  área  sin  ningún  efecto  perjudicial  durante  mucho  tiempo, 
pero  tienes  que  comprobar  tu  mapa  de  memoria  para  estar 
completamente  seguro  de  que  el  uso  que  el  sistema  hace  de 
estas  posiciones  de  memoria  no  entra  en  conflicto  con  la  utili¬ 
zación  que  tú  le  vas  a  dar. 

2.  — ¿Cómo  puede  uno  arreglárselas  para  manejar  arruys  en 
Basic  con  instrucciones  de  lenguaje  máquina?  Utiliza  el  vector 
comienzo  de  Arrays  situado  en  las  posiciones  47  y  48.  Este 
apunta  al  inicio  del  primer  array  dimcnsionado  —  el  arrav 
realmente  es  siete  bytes  más  largo.  Otros  arrays  aparecen 
ordenadamente  a  continuación,  cada  uno  después  de  los  siete 
bytes  antedichos.  En  las  lineas  82Ü  -  853  del  listado  en  ensam¬ 
blador,  puede  verse  cómo  he  almacenado  la  dirección  del 
primer  byte  de  M‘/¡ ,  en  las  sentencias  163-164  y  de  Arc  en  las 
lineas  165-166. 

3.  — ¿Cómo  puede  mantenerse  la  relocabilidad  cuando  se 

necesita  saltar  más  de  127  bytes?  Utiliza  bifurcaciones  como 
medio  de  llegar  hasta  allí.  Mira  las  lineas  916  y  918.  Ambas 
son  instrucciones  BNE.  Es  obvio  que  la  segunda  nova  a  ser 
ejecutada  nunca  bajo  circunstancias  normales,  únicamente 
está  como  instrucción  sin  efecto.  Ahora  fíjate  en  la  línea  1001. 
Me  gustaría  haber  puesto  BNE  863  aquí,  pero  está  más  allá 
del  rango  permitido  en  direccionamientos  relativos.  Asi  que. 
pongo  BNE  918,  y  en  la  instrucción  918,  inserto  el  BNE  863 
justo  detrás  de  otro  BNE  ■ 
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como  ordenador 
de  gestión. 


Personal  Computer  World 
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Sandra 

Texto  v  gráficos 
para  el  Commodore  64 

Este  paquete  responde 
a  un  nuevo  concepto 
de  bases  de  datos , 
que  si  bien 

no  es  totalmente  nuevo 
en  informática 
lo  es  para  el  C-64 
en  nuestro  país. 


gráficos,  y  no  es  un  simple  programa  que 
permite  dibujar,  pues  fue  diseñado  para  ser 
utilizado  como  una  base  de  datos  gráfica  que 
permite  a  los  profesionales  de  distintos  cam¬ 
pos  mantener  su  fichero  de  trabajo  en  cinta  o 
disco  con  ayuda  de  su  ordenador. 

El  Sandra  permite  escribir  con  caracteres 
definidos  por  el  usuario  que  son  almacena¬ 
dos  dentro  de  una  base  de  datos  gráfica, 
estos  caracteres  son  denominados  "robots 
gráficos"  en  el  manual  y,  en  la  cinta  o  disco 
que  acompaña  al  cartucho,  podemos  encon¬ 
trar  algunos  ejemplos,  entre  ellos  un  alfabeto 
"manuscrito"  con  caracteres  españoles  inclui¬ 
dos  (la  eñe,  apertura  de  interrogación,  etc.) 
El  número  máximo  de  estos  caracteres  que 
podemos  almacenar  en  cada  fichero  es  de 
128,  pero  nada  impide  utilizar  varios  ficheros 
para  una  sola  hoja  gráfica.  Esto  último  se 
puede  hacer  cargando  en  primer  lugar  uno  de 
los  ficheros  de  "robots",  pasándolos  a  las 
posiciones  que  deberán  ocupar  en  la  panta¬ 
lla,  y  cargando  posteriormente  otro  grupo  de 
robots,  transfiriéndolos  a  pantalla,  y  asi 
sucesivamente. 

Cada  grupo  de  caracteres  o  robots  pueden 
diseñarse  para  una  aplicación  determinada 
(medicina,  arquitectura,  electrónica, etc.).  En 
la  cinta  de  demostración  podemos  encontrar: 
manuscrito,  minialfabeto  y  electrónica,  y 
nosotros  podremos  crear  todos  los  que  nece¬ 
sitemos. 

Cada  hoja  de  Sandra  está  compuesta  por 
400  •  320  puntos,  lo  que  permite  almacenar 
el  equivalente  a  50  •  40  caracteres,  y  cada 
robot  (carácter  definido),  puede  tener  un 
máximo  de  4  •  3  caracteres  o  32  •  24  puntos 
o  pixcls.  Al  igual  que  los  ficheros  gráficos,  las 
hojas  gráficas  pueden  almacenarse  en  cinta  o 
disco.  Cada  hoja  ocupa  73  bloques  en  el 
disco,  y  cada  fichero  de  robots  gráficos  38. 

Quizás  el  tamaño  de  los  ficheros  y  de  tas 
hojas  pueda  alarmar  a  los  que  no  dispongan 
de  unidad  de  disco,  pero  pueden  tranquili¬ 
zarse,  ya  que  Sandra  graba  en  cinta  a  la 
misma  velocidad  que  la  unidad  de  disco  (uti¬ 
lizando  un  sistema  turbo),  y  este  sistema  de 
almacenamiento  rápido  nos  ha  demostrado 
en  las  pruebas  que  no  causa  problemas  de 


contrario  que  el  modo  habitual  de  funcio¬ 
namiento  del  C-64,  permite  simultanear  en 
pantalla  todos  los  símbolos  de  que  dispone¬ 
mos  en  el  teclado.  Así  pues,  podemos  teclear 
texto  o  anotaciones  en  las  hojas  gráficas  en 
mayúsculas,  minúsculas  y  con  los  gráficos  de 
las  teclas  Commodore  y  Shift,  sin  que  al  pul¬ 
sar  estas  dos  teclas  cambie  ninguno  de  los 
signos  que  ya  estaban  en  la  pantalla. 

Debemos  aclarar  que  naturalmente  no 
podemos  ver  la  hoja  completa  en  la  pantalla, 
tanto  en  el  modo  de  texto  como  en  el  gráfico. 
Esto  es  natural  si  tenemos  en  cuenta  que  la 
máxima  resolución  alcanzablc  con  el  64  es  de 
320  •  200  Puntos,  mientras  cada  hoja  gráfica 
de  Sandra  duplica  esta  capacidad.  El  modo 
de  ver  el  resto  de  la  hoja  es  moverse  por 
medio  de  las  teclas  de  cursor  o  el  joystick  en 
todas  direcciones. 

Una  vez  que  hemos  terminado  de  preparar 
la  hoja  con  el  esquema  o  gráfico  que  nos 
interesa  podemos  almacenarlo  para  su 
posterior  utilización  y/o  imprimirlo  en  papel 
pulsando  la  tecla  Fl. 

El  equipo  necesario  para  Sandra  64  es: 
Ordenador  Commodore  64  ó  SX-64, 
cartucho  Sandra,  unidad  de  disco  Commodore 
1541  o  Datassette,  Impresora  MPS  801  ó 
1525,  y  naturalmente  un  monitor  o  televisor. 

Los  que  no  dispongan  de  la  impresora 
Commodore,  deberán  consultar  con  Casa  de 
Software  en  Barcelona  si  su  impresora  es 
compatible,  ya  que  existe  un  gran  número  de 
impresoras  Centronics  que  funcionan  con  el 
Sandra  (por  ejemplo  la  Seikosha  550  A), 
pero  la  lista  seria  enorme.  Tampoco  se  puede 
decir  "todas  las  impresoras  sirven",  en 
concreto  la  mía  no  va  bien  (se  trata  de  una 
impresora  matricial  marca  Admate  DP-80). 
Quizás  sea  fácil  realizar  los  cambios  para  que 
funcione  correctamente,  pero  no  lo  he 
probado.  Con  la  impresora  MPS  801  de  la 
oficina  toda  va  perfectamente. 

Las  teclas  de  función  son  las  que  nos 
ayudan  a  realizar  todas  las  operaciones.  En 
el  menú  principal  sus  funciones  son: 

Fl  -  Cambia  casscttc/disco. 

F3  -  Editar  hoja  gráfica. 

F5  -  Editar  robot  de  trazo. 

F7  -  Ver  el  directorio  del  disco. 

Si  estamos  editando  la  hoja  gráfica,  las 
funciones  son: 

Fl  -  Volcado  a  impresora. 

F2  -  Modo  robot  automático. 

F3  -  Modo  gráfico. 

F4  -  Modo  robot  inverso. 

F5  -  Robot  de  trazo. 

F6  -  Cambia  de  hoja  gráfica  a  robot  y 
viceversa. 

F7  -  Cambia  la  velocidad  de  trazo. 

F8  -  Graba  la  hoja  en  cinta  o  disco. 

Los  modos  “robot"  sirven  para  transferir 
cualquiera  de  los  símbolos  definidos  en  el 
archivo  utilizando  a  la  posición  donde  se 
encuentra  el  cursor. 

Mediante  el  modo  gráfico  podemos  dibujar 
en  la  hoja  con  ayuda  del  joystick  conectado 
al  Port  2.  La  velocidad  de  desplazamiento  del 
puntero  por  la  pantalla  podemos  seleccionarla 
con  ayuda  de  la  tecla  de  función  F7. 

El  modo  de  "robot  inverso"  permite  que 
los  dibujos  realizados  en  los  modos  anteriores 
se  vean  aunque  se  superpongan,  ya  que  el 


i  dibujo  va  apareciendo  en  el  color  contrario 
al  del  fondo  de  cada  punto,  de  modo  que  si 
dibujamos  una  recta  que  cruce  sobre  un 
dibujo  anterior,  la  linea  aparecerá  negra 
sobre  el  fondo  blanco,  y  blanca  sobre  la  zona 
ocupada  por  el  otro  dibujo. 

En  la  cinta  de  demostración  encontraremos 
ejemplos  llamados:  Estación,  dentista,  carta/- 
reyes,  esquema  y  esquema  2. 

Los  ejemplos  pueden  servir  para  dar  idea 
de  las  posibilidades,  en  los  campos  profesiona¬ 
les  y  amateurs  de  este  programa. 

Siendo  este  un  sistema  de  "eslión  de  fiche¬ 
ros  gráficos,  podría  verse  complementado  con 
un  buen  sistema  de  gestión  de  bases  de  datos 
similar  a  la  Supcr  Base.  Hemos  preguntado 
sobre  esta  posibilidad  a  sus  autores  y  sonrie¬ 
ron...  Parece  ser  que  de  momento  no  dispo¬ 
nen  de  este  programa,  pero  tampoco  des¬ 
mienten  la  posibilidad  de  su  aparición  en  un 
futuro  próximo,  ya  que  los  datos  almacena- 


software  sa. 


cartucho  para 
commodore  64 


dos  por  Sandra  pueden  ser  transferidos  a 
otros  programas  con  ayuda  de  algún  utilita- 

Conocicndo  los  programas  de  que  dispone 
esta  casa,  debemos  suponer  que  este  sistema 
de  base  de  datos  se  encuentre  en  fase  de  pre¬ 
paración,  pero  su  futura  comercialización 
dependería  de  la  calidad  final  del  producto 
desarrollado,  ya  que  no  han  querido  comer¬ 
cializar  algunos  productos  por  no  dar  el  nivel 
de  calidad  y  versatilidad  que  ellos  mismos  se 
exigían. 

El  precio  del  Sandra  es  19.000  ptis,  y 
quien  desee  más  información  puede  dirigirse 
a  la  casa  que  lo  ha  comercializado,  sus  señas 

Casa  de  Software 
c/ Aragón,  272,  8,  6 
Tel.  93  -  215  69  52 
08007  Barcelona 
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El  PC  de  Commodore, 

aparato  magnífico  y  más  económico  del  mercado 


Ya  está  aqui.  ¡Y  menudo  PC! 
Ha  sido  la  estrella  de  In¬ 
formal  igual  que  fue  estrella 
en  Las  Vegas  en  enero  y  lo  acaba 
de  ser  en  Hannover,  la  principal 
feria  europea  de  Informática. 

Y  no  es  para  menos  y  se  lo 
merece  — con  una  compatibilidad 
del  100  por  100,  prestaciones  del 
más  alto  nivel  y  el  magnifico  pre¬ 
cio  con  que  sale —  419.000  la  uni¬ 
dad  de  base  de  256K  RAM  y  que 
incluye  teclado,  monitor  y  2  uni¬ 
dades  de  discos —  lo  convierte  en 
el  PC  más  económico  del  mer¬ 
cado.  No  podemos  olvidar  tam¬ 
poco  su  aspecto  físico,  una  sobrie¬ 
dad  de  lineas  que  lo  hace  muy 
atractivo  y  elegante. 

El  commodoriano  que  esté 
pensando  en  ampliar  su  campo  de 
acción  difícilmente  va  a  encontrar 
mejor  solución  que  este  PC. 

No  hemos  tenido  tiempo  de 
probarlo  a  fondo  dada  la  pre¬ 
mura  del  cierre  de  la  revista,  pero 
para  el  próximo  número,  que  dis¬ 
pondremos  de  uno  de  ellos  (D. 
Carlos  Domenech,  presidente  de 
MEC,  nos  ha  prometido  enviar¬ 
nos  uno  inmediatamente),  po¬ 
dremos  dedicarle  una  amplia 
reseña.  De  momento  sólo  hemos 
podido  ver  en  la  feria  de  Barce¬ 
lona,  Informal,  que  las  tarjetas  de 
ampliación  para  gráficos  en  color 
y  la  tarjeta  controladora  de  disco 
duro  funcionaban  muy  bien,  pues 
tuvimos  uno  de  ellos  funcionando 
con  gráficos  y  otro  conectado  a 
un  disco  duro  de  40  mcgabylcs. 

También  vimos  el  Wordstar,  la 
D-Base  3,  el  Lotus  1-2-3  y  otros 
paquetes  que  funcionaban  perfec¬ 
tamente  en  el  Commodore  PC. 

La  impresión  que  tuvimos  fue 
totalmente  satisfactoria,  y  aunque 
no  pudimos  comprobar  a  fondo 
el  ordenador,  si  hicimos  correr  en 
él  algunos  de  los  programas  que 
llevábamos  en  el  maletín  (eran 
programas  de  un  IBM-XT),  y  con 
gran  satisfacción  disfrutamos 
viendo  la  gran  estabilidad  y  reso¬ 
lución  de  la  pantalla,  compro¬ 
bando  el  suave  y  preciso  movi¬ 
miento  de  las  teclas  al  pulsarlas 
(el  típico  de  Commodore),  sus 
eficaces  y  silenciosos  drives  y  sus 
infinitas  posibilidades.  Tanto  la 
estabilidad  de  la  pantalla  como  el 
teclado  nos  parecieron  muy  supe¬ 
riores  a  los  del  IBM  PC. 

Entre  sus  características  prin¬ 
cipales  son  destacables  en  la  ver¬ 
sión  base  podemos  citar: 

— 256K  RAM  de  9  bits. 


— Zócalos  incorporados  para 
ampliarlo  hasta  640K. 

— Dos  unidades  de  disco  incor¬ 
poradas  de  360K  cada  una. 

— Monitor  de  fósforo  verde  de 
alta  resolución. 

—Interfaces  serie  y  paralelo 
incluidos  (RS-232  y  Centronics). 

— Cinco  slots  de  ampliación 
compatibles  con  todas  las  tarjetas 
del  IBM  PC. 

— Alta  resolución  ya  incluida. 

— Y  como  ya  hemos  dicho,  su 
precio  es  el  mejor  de  los  ordena¬ 
dores  de  esta  categoría,  pues  en 
las  419.000  Ptas.  van  incluidas 
todas  las  características  anteriores. 

Opcionalmente  se  le  puede 
incorporar  un  disco  duro  de  10 
Megabytes  (lo  incorpora  el  modelo 
PC-20). 

Al  utilizar  el  interface  Centro¬ 
nics  para  las  impresoras  podre¬ 
mos  utilizar  cualquiera  de  las  del 
mercado  que  dispongan  de  este 
modo  de  trabajo,  y  todo  aquel 
que  conozca  las  impresoras  dis¬ 
ponibles,  sabrá  que  aquellas  con 
interface  Centronics  son  las  más 
baratas,  rápidas  y  con  mejor  rela¬ 
ción  calidad/precio. 

Como  disponemos  de  otro 
canal  de  comunicaciones  de  tipo 
serie  con  protocolo  RS-232,  po¬ 
dremos  conectar  un  modem  u 
otro  tipo  de  impresora. 

Si  tenemos  en  cuenta  la  gran 
competitividad  en  precios  y  cali¬ 
dades  que  está  consiguiendo  Com- 
modorc  en  todo  el  mundo,  po¬ 
dremos  imaginar  que  este  modelo 
puede  hacer  la  vida  difícil  a 
muchas  marcas  que  actualmente 
comercializan  equipos  PC-Com- 
patibles. 


Las  especificaciones  del  nuevo 
ordenador  Commodore  PC-10 
figuran  en  la  siguiente  tabla: 
MICROPROCESADOR: 

Intel  8088.  Procesador  de  16 
bits. 

Intel  8087.  Procesador  coma 
flotante  (opcional). 
FRECUENCIA  DE  RELOJ: 
Memoria:  4.77  Mhz. 

Principal  256K  RAM  (amplia- 
blc  hasta  640K) 

Video  32K  RAM 
ROM  8K  ó  16K 
PANTALLA: 

Monitor  fósforo  verde  mono¬ 
cromo  12”,  o 

Monitor  color  RGBI  12" 
(media  resolución) 

Formatos  pantalla: 
Alfanumérico  monocromo 
80X25. 

Gráfico  monocromo  640X200 
ó  640X352  pixels. 
Alfanumérico  color,  16  colo¬ 
res,  40X25  ó  80X25. 

Gráfico  color,  16  colores, 
160X200  ó  320X200  pixels. 
Gráfico  color,  4  colores, 
320X200  ó  640X200  pixels. 
Atributos  alfanuméricos: 

Alta  intensidad,  vídeo  en 


negativo,  destelleo.  subrayado 
(sólo  monocromo). 

TECLADO: 

Separable. 

84  teclas,  incluyendo  10  teclas 
de  función. 

INTERFACES: 

Port  Paralelo  -  Centronics. 
Port  serie  -  RS232. 

Teclado. 

RGBI 

Monocromo  compuesto. 

5  slots  de  expansión  (para 
PCBs  compatibles  PC). 

ALMACENAMIENTO: 

Unidad  doble  de  discos  flexi¬ 
bles  de  doble  cara  de  360K  de 
capacidad  cada  uno,  o  un 
floppy  de  360K.  y  un  disco 
duro  de  10  Mbytes. 

SISTEMA  OPERATIVO: 

DOS  2.11 

BIOS:  Rom  de  8K  para  ruti¬ 
nas  de  E/S,  manejo  de  inte¬ 
rrupciones  y  bootstrap. 
DOS:  Carga  automática  desde 
disco.  Manejo  de  ficheros  e 
interpretador  de  comandos. 
Versiones  traducidas  para 
cada  idioma. 
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Descubre  las  nuevas 

impresoras  para  tu 

Commodore 


Star  ha  lanzado  al  mercado  los  nuevos  modelos  de  impresoras  para  Commodore; 
doble  interface,  paralelo  Centronics  y  Commodore. 

Con  este  interface  para  Commodore  logramos  poder  trabajar  con  todas  las 
grandes  prestaciones  de  esta  gama  de  impresoras,  es  decir,  una  gran  velocidad, 
fricción  tracción,  cinta  de  máquina  de  escribir,  100  tipos  de  letras  diferentes... 
Además  de  todas  estas  prestaciones  lograrás  con  tu  Commodore  transcribir  todos 
estos  tipos  de  letra  con  sus  propios  caracteres  gráficos. 

Si  quieres  hacer  gráficos  trabajando  con  el  Simon’s  Basic,  lograrás  hacer  Hard 
copys  directamente  de  pantalla. 

Todo  esto  y  mucho  más  lograrás  con  las  impresoras  STAR. 


De  venta  en  establecimientos  especializados: 


IMPORTADO  POR: 


COMPONENTES  ELECTRONICOS.  S.A. 


08009  BARCELONA.  Consejo  de  Ciento,  409 
Tel.  (93)  231  59  13 

28020  MADRID.  Comandante  Zorita,  13 
Tels.  (91)  233  00  94  -  233  09  24 


Por  (íerald  COfíl)I\<,  TO\  (RUi\  Et.t  t  .) 
Traducido  y  adaptado  por  Alvaro  IBAÑEZ 


PERSECUCION 

¿Cuántas  veces  has  jugado  a  perseguir  a  tus 
amigos  en  lugares  cerrados?  He  aquí  un  pro¬ 
grama  en  BASIC  que  requiere  dos  joysticks, 
para  que  podáis  jugar  un  amigo  y  tú  a  persegui¬ 
ros  el  uno  al  otro  a  través  de  la  pantalla 


Antes  de  cargar  el  programa  “Per¬ 
secución",  asegúrate  de  que  los 
dos  joysticks  estén  conectados  al 
ordenador.  La  pantalla  de  presentación 
te  ofrece  la  opción  de  leer  las  instruc¬ 
ciones  si  no  estás  familiarizado  con  el 
juego. 

El  objeto  de  esta  "Persecución”  es 
acumular  dos  minutos  en  el  marcador 
sin  haber  sido  cogido.  Tu  marcador 
aumenta  cuando  le  toca  perseguir  a  tu 
oponente. 

Date  cuenta  de  que  hay  dos  lugares 
en  la  pantalla,  arriba  y  abajo,  en  los  que 
puedes  esconderte.  Usalos  para  tomar 
ventaja. 

Aquí  debajo  está  el  desensamblado 
del  programa  que  he  usado.  Si  no  lo 
entiendes  no  te  preocupes.  Diviértete 
jugando. 

49152  sei 
49153  Ida  789 
49156  cmp  #234 
49158  bne  49173 
49160  Ida  #33 
49162  sta  788 
49165  Ida  #192 
49167  sta  789 
49170  jmp  49183 
49173  Ida  #49 
49175  sta  788 
49178  Ida  #234 
49180  sta  789 
49183  cli 
49184  rts 

49185  (aqui  va  la  rutina  en  código 
máquina). 

¡Recuerda  el  JMP  59953  al  final!  y  no 
hagas  POKES  a  las  direcciones  788  ó 
789  desde  Basic. 

NOTA:  Si  no  dispones  de  dos  joys¬ 
ticks,  usa  el  que  tengas  en  el  Port  2.  y 
simula  el  del  Port  1  con  las  teclas: 
"flecha  a  la  izquierda”  =  izquierda 
•  “2"  =  derecha 

“I”  =  arriba 
"CTRL”  =  abajo. 
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I  REM  PRÜ6KHMH  PERSECUCION.  POR  GERH 
L D  CGDDINÜTÜN.  RUN  EE.UU. 

1  0  PRINTCHR*(142) 'PRINTCHRíOá)  PÜKE5 
3260, 0  PGKE53281 , Ó SR-1 • GÜTG90 
¿0  POkEV+16/ 16P0KEV+43-FFP0kEVf8,4 
0  PÜKEV+9,200 

30  PR I NT " £  HÜM  3  £  7CRSRD I "  TflB  < 3b )  "  P  t  CRSRU 
[  CRSRO I E I  CRSRU  3  £  CRSRIl  3  R  [  CRSRL  3  [  LRSRD  3 
S  C  CRSRL 3  E  CRSRIl  3  E  C  CRSRL  3 1 CRSRD3  O I CRSRL  3 
E  CRSRD  3  U  E  CRSRL  3  E  CRSRD  3 1 E  CRSRL  3  C  LRSRD 3 
D  E  CRSRL  3  E  CRSRD  3  O  £  CRSRL  3  E  CRSRD  3  R “ 

50  PR I NT " C  HÜM 3 1 33SPC 3  C  CRSRD  3  C  CRSRR 3  T 
1 EMPÜE  5CRSRL 3 [ 2CRSRD3 " - 
55  PRINrRIGHT*<TI*,3) 

60  I FH 1 *> " 000200 " ORH2$> " 000200 " THENb 
20 

70  FÜRL *54272 T 054236 : POKEL -  0 ■ NEXT  =  S» 

54272 

00  PÜKES+24, 15P0KES+I3. 138  PÜKtS+15 
, XX : PÜKES+ 1 6 , 1 7  =  POkEV+30 , 0 : RE TURN 
30  PRINT"CCLR3"  FF-5  POKE53280, 254  T  ¡ 

I  í ■  "  000000  "  :  H 1  #=  "  000000  "  :  H¿*=»  "  000000 

100  V«53248:X-15V-47  2»255  PÜKEV+30 

I  <0 

]  110  POKEVv-21  , 19 

I  128  PÜKE2040, 13 : PGKE2041 .13  PÜKE2044 
1 13 

130  POKEV+23 » 255 : PÜKEV+29 . 255 

140  FORN-0Tüb2  RE8DQ  P0kE832fN,Cl  NEX  ! 

T : GGTG900 

150  PGKEV+39,2  POKEV+40,5 
160  IFSR-1THEN310 

1 70  POkE V+0 , 255 :  PÜKEV+ 1 . 2:15  PÜKEV+2 , 

15  PÚKEV+3, 47  POKE53280. 5 

180  FÜR I  =  1 T023  PR I NT " [ 34CRSRR 3  £ RVSÚN 3 

E  C0MM5  3  C  SPC  3  "  :  NEXT  0-215 

190  GOSUB20 

200  PÜKE2018» 160 

210  IFFF-2THENH1 í-T I i 

220  PR 1 NT " I HOM  3 [ 33SPC  3 1 CRSRD  3 1  CRSRR  3 

T I EMPOI 5CRSRL  3 1 2CRSKD  3  C  GRN  3 "  , 

!  ¿25  PRINTRIGHT*CH1Í>33 
230  I FH 1  •!> "  00 1 99  " QRH2*> " 000 1 99 " THENb 
20  ! 
240  1 FPEEK ( V+30  >NND3-3NNDFF -5THENFF - 
i  2  XX«30  : T I *-H 1  $ : POKE53280 , 2 : GOSUB20 
250  IFFF-5THENH2Í-TIÍ 
260  PRINT“ tRED3" 

|  270  PR I NT " I HÜM 3 1 33SPC 3 1 CRSRD 3 1 CRSRR 3 
T I EMPÜ [ 5CRSRL  3 [ 4CRSRD  3 " i 
275  PRINTRIGHTS(H2*.3> 

260  1 FPEEK l V+30  >  HND3-3HNDFF=¿THENFF ■ 

5  XX-68  TH-H2*  PüKE53280,5  GOSUB20 
290  I FH 1 <  > " 000 1 99 " ÜRH2S > " 000 1 99 " THEN 
620 

360  GÚTÚ210 

310  V-53248  PUKEV+30.0 
|  320  PRINT 

330  PRINT" CCLR3 C2CRSRD3IOHT J E31SPC3X 

340  PRINT "[4SPG3XSH1FTU31SHIFTP3ÍSPC3 
C  SH 1 FTO  3  C  CGMMV 3 1 SPC  3CSHIFT03CSHIFTP3 
I SPC  3 1 SH I F  TO  3 1 CÜMMY  3  C  SPC  3 [ SH I F  TO  3  C  CÜMMY  3 
C  SPC  3 1  SH  I F  TO  3 1  CÜMMY  3  C  SPC  3  C  CÜMMÚ  3  C  LÜMMN  3 
[  SPC  3  C  SH  I F  TO  3  C  CÜMMY  3  E  SPC  3  C  COMMN  3  C  SPC  3 
[SHIFT03ISHIFTP3CCÜI1MN3 ISHIFTM3CSPC3 
E COMMH 3 

350  PR I NT " C 4SPC 3CSHIFT03C CÜMMY 3 C SPC 3 
ESHIFT03EC0MMY3ESPC3ESHIFTL3ESH1FTN3 
E  SPC  3  E  CÚMM Y  3  E  SH I FTP  3  E  SPC  3  E  SH I F  TO  3  E  LGMM Y  3 
[  SPC  3  [  COMMH  3 1 2SPC  3 1  CClMMG  3  [  COMMN  3  E  SPC  3 
£  COMMH 3 1 2SPC 3 1 COMMH  3 1 SPC  3 1 COMMH  3 1 CÜMMN 3 
C  CÜMMM 3  C  SPC  3  C  SH I FTM  3 1 COMMH  3 
360  PRINT" [4SPC3CCOMMH3C2SPC3 CSHIFTL3 
I CÚMMP 3  C  SPC  3  £  COMMH  3  £  SH I F  TM  3  £  SPC  3  £  CÜMMP  3 
I6HIFT63C SPC 3£SHIFTL3 CC0MMP3 C ¿PC 3 [ oHI FTL  3  I  k 
£C0MMP3  C  SPC3  £SHIFTL  3  ESHIFTÜ3  ESPL3  ESHIFTL  3  I  r 
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ordenador  Se  explica  cómo  conectarlo,  cómo  emplearlo  y  cómo  aprovecharlo  al  máximo  apuntan¬ 
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E  COMMP  3CSPCH  CÜMNN  J  E  SPC  H  SHIFTL  J  E  SH I  FTli  3 

C  COMMN ] 1 2SPC  3  £  CÚMMH  3 

370  PRINT “EWHT  H CRSRD JE 10SPC3PGRESPC] 

GERÑLDE2SPCIC0BDINGT0N" 

38u  PRINT"!  3CRSRD 3 " TÑB ■  4  )n ClU  1  ERES e SPC 3 
INSTRUCCIÚNES7ESHIFT  SPC!KS/N,>" 

390  Ñh=-35  K0RI-35TÜ245 

400  POKEV+0, I : POKEV+1 , 100 

4 1 0  PÜKEV+2 , I -ÑÑ : POkEV+3 , 1 80 

420  GETÑÍ  IFÑÍX"  "THEN450 

430  IPÑÍ="N"THtNRESTORE  CLR;GOTO90 

44ü  1FÑ*="S"THEN?70 

450  ÑÑ=ÑÑ+.07  POKEV+30,  0 

460  I FPEEK ( V+30  J  ÑND3=3  THENPR I  NT  "  E  ÑUM  3 

E  1 jLRSRD 3 " TÑIK 22 ) " TE E SPC 3 CÚG 1 1 "  ÜÜT O 

460 

470  NEXT 

480  FÜRI*1 TQ10Ü0 • NEXT ■ PRINTThBi 1 1  > " E ¿CRSRU 1 
SI , £  ¿PC I PERO E  SPC  J  ñHORñ  E ¿PC  3  ME  E  SPC  3  T  O 
CÑ[ SPC 3hC SPC  3111  1  !  " 

490  ÑÑ=- 30  F  ÚR I » 1 TÜ 1 800  NEXT : PR I NT " E 2CRSRU 3 
C40bPC i " 

500  PR I NT “ C  CRSRU 3  C 36SPC  3 " 

510  FClR  1  *245T Ú35S  TEP- 1 

520  PÜKEV40, I+ÑÑ • PÜKEV+l , 180 

530  PÜKEV+2, 1 :PÚKEV+3, 180 

540  CETm*  1FÑ**" "THEN570 

550  IFÑÍ*"N"THENRESTÚRE  CLRGOTO90 

560  I  Fh$«=  "  Y  "  THEN770 

570  PÜKEV+30, 0 

580  IFPEEK(V+30.íÑND3=3  THENPR  INTTÑBC9 
> " £CRSRU3LÚ£SPC3HICISTE I "  GÜTÜ61U 
580  8Ñ=ÑÑ+. 06 
600  NEXT 

610  FÜR 1 - 1 TO 1 000 : NEXT • PR 1 NT " C  CRSRU 3 E  38SPC3 
C CRSRU 3"  RUN310 

620  POR  1  ■  VTÜV+9  POKÉ I , U  NEX  T  PR I NT " £  CLR  3 
£  1 4SPC  3  C C0MM5  3  F 1 NE  SPC  3  DE  £ SPC  3  JUEGO " 

630  PR I N  T " C  3CRSRD  3  T 1 EMPOS  £  2CRSRD  3 " : 

PR I NT " £  SPC  3  JUGÑDOR  £  SPC  3 1 E  SPC  3  [ SPC  3 " 

H 1  *  PRINT"!  2CRSRD  3  £  CÜI1M3  3  £  SPC  3  JUGÑDO 
R£SPC32£SPC3 ' ESPC3 "H2* 

640  HS=1  IFH2*>H1*THENHS»2 

650  PR I NT " E  ¿CRSRD  H  WHT  3  E  ¿SPC 3EL  E  SPC  3 

JUGÑllOR,,HS"GÑNÜ!  " 

í  660  PR I N  T " £  9CRSRD  3  E  SCRSRR  3  PUL  SH  E  SPC  3 
BOTON  E  SPC  3  EN  E  SPC  3  EL  E  SPC  J  J  O  VST I  CK  E  SPC  3 

1  E  CRSRL  3  C  CRSRU  3  " 

670  WÑ1T56321 , 16, 16 : CLR -  RESTORE  GOTO 
90 

680  END 

690  RESTÜRE  CLR : GÜT090 

700  DÑTÑ0-0, 0,0, 126,0,0,255,0 

710  DHTÑ1 ,255, 128,3,255, 192,3,255, 19 

2 

720  E/HTÑ3, 153, 192,3, 153, 192,3, 153, 13 
2 

730  DÑTH3, 255, 132,1, 255, 128, 0,255, 0 


740  EIHTÑ0 , 255 , 0 , 0, 66 ,  0 , 0 ,  bb ,  0 
750  EÑ TÑ0, 66, 0,0, 231 , 0, 0, 0, 0 
1  760  EÑT Ñ0 ,0,0, 0,0, 0,0, 0,0 
770  F OR I *VT ÚV+3 ■ POKE I , 0 : NEXT  Pk 1 NT " £  CLR  3 
£  WHT  3 "  TÑB  U  2  >"  £  WHT3— PEkSECUC  1  UN—  " 

780  PR I NT " £  CRSRD  3  £  CUMM3  3  C  SPC  3  EL  £  SPC  3 
OB JET I VÚ  £  SPC  3  DEL  £ SPC  3  JUEGO  £  SPC  3  ES  £  SPC  3 
NO C SPC 3 SER" 

730  PR I NT " C SPC 3 CÑPTURHEU L SPC 3 BUkÑNT E 
I  £ SPC 3 EOS £ SPC 3 III ÑUTOS. ESPCJEL" 

795  PR  I  NT  "  C  SPC  3  Pk  I  MERO  £  SPC  3  EN  £  SPC  3  C  O 
NSEGU I RLO  £  SPC  JES£ SPC  3  EL  £  SPC  3GÑNÑEOR " 

¿00  PR  I  NT  “  E  CRSRD  3 1 CÜMM4  3  E  SPC  3PÑRñ£  SPC  3 
ÑT  RÑPÑR  £  SPC  3  Ñ  E  SPC  3  LÑ  £  SPC  3  OTRÑ  £  SPC  3  PE 
kSÜNÑ, £ SPC 3 TIENES" 

I  810  PRINT"!  SPC  3  QUE  £  SPC  3  T UoÑRLE .  " 

820  PR I NT " E SPC 3 CUÑNEO ESPC3LÜESPC3HHL 
ES, £  SPC  3  TU  £  SPC  3  MHRCÑDük  £  SPC  3  EMP 1 EZH  £  SPC  3 
Ñ" 

325  PRINT " EsPCICÜNTÑk. £SPl  JS1 ESPC3LH 
£ SPC  3  OTRÑ  £  ¿PC  3 PERSGNÑL  SPC 3  TE  £  ¿PC  3  HT  R 
ÑPÑ,  " 

830  PRINT " £  SPC  3  TU£  SPC  JCÜNTÑEOk  £  ¿PC  3  S 
E  £  SPC  3  PÑRÑ  £  SPC  3  V  £  SPC  3  EL  £  SPC  3  SUVu  £  2SPC 3 
ÑVÑNZÑ. " 

840  PRINT "£SPC3EST0£3PC3C0NT1NUñ£SPC3 
HñS  £  Ñ  £  SPC  3  ÜUE  £  SPC  J  ÑL  GUNÜ  £  ¿PC  3  EE  £  SPC  3 
LOS  £  SH I F  T  SPC  3  £  2SPC  3  J UGÑEÜRE  s £  SPC  3  L  L 
EGÑ  E  SPC  3  R  E  SPC  3  DOS  £  SPC  3  M 1  ÑUTOS  " 

850  PRIN1  "  £  CÜMM6  3  £  Lk'SkB  J  £  ¿Pl  3  ES  I E  t  SPC  3 
JUEGO  £  SPC  3NECES I T  Ñ  £  SPC  3  DOS  £  SPC  3  JOYS  T 
I CK  S , £  6SPC  3  UNO  £  SPC  3  PHRÑ £  SPC  3  CÑBÑ  £  SPC  3 
HOMBRE. " 

860  PR 1 NT " £  COCUI/ 3  £  CRSRD J  £  SPC  J  S 1  £  ¿PC  3 
OLVIBÑSESPC3ÑE SPC3GU1ENESPCJLEESPC3T 
OCR ESPC3 PERSEGUIR, " 

870  PRINT"!  SPC  3(1 1 RÑ E  SPC  3 EL  £  SPC  J  BORDE 
ESPC3BEESPC3LÑESPC3PHNTHLLÑ. "  PRINT" 

£  CRSRD  3  E9SPC3 BUENÑ £  SPC  3  SURTE  £  ¿PC  J  H  £  SPC  3 
ÑMBOSESPC3 ! ! I" 

880  PR  I  NT  "  £  WH  T  3  E  CRSRD  J  E  4SF'C  3 1 R VSÜN  3  P 
ULSÑ £  SPC  3  BOTONE  SPC  3EN  £  ¿PC  3  EL  £  SPC  3  JOY 
STICKESPC3 1 " 

830  G0T0678 

300  F0RñDRE8=48 1 52TO49a0b  REHDDÑTTÑ 
POKEÑDRES, DÑTTÑ  NEXTÑDRES 
309  REM  *4  DÑTÑS  PÑRÑ  LENGUÑJE  MÑÚUI 
NÑ  ** 

910  DÑTÑ120, 178,21,3,201, 284 
920  DÑTÑ208, 13, 169,33, 141,20 
930  DRTÑ3, 163, 132, 141,21,3 
340  DÑTÑ76.31, 192, 169,49, 141 
950  DÑTÑ20, 3, 169,234, 141 ,21 
960  BRTÑ3, 88, 96, 173,0,220 
970  DÑTÑ201, 123,240, 15,201, 119 
380  DÑTÑ240, 20, 201, 126,240,25 
990  DÑTÑ201, 125,240,30,76,34 
1000  DÑTÑ192, 286, 0,206, 206,0 
1010  DÑTÑ208, 76, 94, 192,238,0 
1020  DÑTÑ208, 238, 0,208, 76, 94 
1030  DRTÑ192, 206, 1,208,206, 1 
1040  DRTÑ208, 76, 94, 192, 236,1 
1050  DÑTÑ208, 238, 1,208,236,7 
1060  DÑTÑ208, 76,94, 192- 17o, 1 
1070  DÑTÑ220, 201, 251, 240, 15,201 
1080  BÑTÑ24?, 240, 20, 201 , 254, 240 
1090  DRTÑ25, 201, 253, 240, 30, 76 
1100  DÑT Ñ49 , 234 , 206 , 2 , 206 , 286 
1110  DÑTÑ2, 208, 76- 49, 234, ¿38 
1120  DÑTÑ2, 208, 238,2, 20tí, 76 
1130  DÑTÑ42 , 234 , 206 , 3 , 208 , 206 
1140  DÑTÑS, 208, 76, 49, 234, 238 
1150  DÑTÑ3, 208, 238, 3, 206, 76 
1160  DRTÑ49, 234, 96,0,0,0 
1170  I FPEEK  <  789  >  «234THENS YS49 1 52 
1180  GOTO 150 
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DE  TENA,  15,  TDA.  4  (PJE.) 
TELEFONO  249  31  96 
08014-BARCEL  ONA 


Un  nuevo  concepto  en  programas  de  gestión. 

Con  CONTABILIDAD  V.  1  de  EASY  SOFT  no  tendrá  que  adaptarse  a  las  rígidas 
características  de  un  programa  standar. 

EASY  SOFT  le  ofrece  un  programa  en  el  cual  podrá,  antes  de  empezar  la  sesión  de 
trabajo,  indicar  la  cantidad  de  cuentas  que  su  empresa  necesita  e  incluirlas  de  acuerdo  a 
sus  necesidades  en  las  programaciones  de  balances,  resultados,  etc. 

CONTABILIDAD  V.l  le  ofrece  la  posibilidad  de  trabajar  en  un  solo  disco  con  hasta 
1.500  cuentas  y  hasta  5.000  apuntes  por  diario.  Con  unos  tiempos  de  acceso  a  la 
información  de  aproximadamente  0,25  segundos,  y  unos  saldos  de  hasta  4.600  millones 
de  ptas.  por  cierre. 

Incluye  también  una  pequeña  base  de  datos  para  que  pueda  hacer  listados  de  cuenta  de 
acuerdo  a  sus  necesidades  (v.g.:  listar  todos  los  clientes  de  una  provincia  o  todos  los 
bancos,  etc.). 

CARACTERISTICAS  GENERALES 

—  Listados  por  pantalla  e  impresora. 

Adaptada  al  P.G.C.  (incluyendo  los  listados  por  impresora). 

—  Hasta  1.500  cuentas  por  disco. 

—  Hasta  5.000  apuntes  por  disco. 

—  Cuentas  de  explotación. 

—  Balance. 

—  Diario  de  cierre,  etc. 

—  30  caracteres  para  concepto  de  cuenta. 

—  18  caracteres  para  concepto  de  apunte. 

Preparado  para: 

COMMODORE  64  y  unidad  de  disco  1541. 

EXECUTIVE  64. 

Nuevos  ordenadores  COMMODORE  (más  cuentas  y  más  apuntes  por  disco). 

Otros  ordenadores,  consultar. 

En  preparación  VIDEO  CLUBS,  MAILING,  BASE  DE  DATOS. 

—  PRECISAMOS  DISTRIBUIDORES _ _ 


IVESON  SOFTWARE 

Programas  para  Commodore  MSX  y  SPECTRUM 
C/  RIERA  DE  TENA,  15,  TDA.  4  (PJE.).  TELE.:  249  31  96.  08014-BARCELONA 


Por  Roben  W.  BAKER  y  Adaptado  por  Alvaro  IBAXE¿ 


C  64  Y  VlC-20 

expansoR  DE 


¿Están  las  líneas  de  tu  programa 
sobrecargadas  con  demasiadas  sentencias? 
Este  programa  rompe  y  acorta  dichas  líneas, 
haciéndolas  más  sencillas  de  editar. 


En  el  Expansor  de  Líneas,  al  igual 
que  ocurría  con  el  programa 
“Reductor  de  Lineas"  (N®  13 
“Commodore  World"  -  Pág.  8),  este 
programa  fue  escrito  para  el  PET  de 
Commodore.  Ahora  lo  he  actualizado 
para  que  funcione  en  el  C-64  y  el 
VlC-20. 

“Expansor”,  un  compañero  del  “Re¬ 
ductor",  lee  un  programa  Basic  que  se 
haya  salvado  en  disco  y  crea  una  copia 
nueva,  descompactada  o  expandida. 
Lleva  a  cabo  esta  tarea  tomando  cual¬ 
quiera  de  las  lineas  que  contiene  senten¬ 
cias  múltiples  (sentencias  separadas  por 
dos  puntos)  dividiéndolas  en  lineas  de 
programa  independientes  con  una  nueva 
numeración  de  linea.  De  esta  forma, 
pueden  editarse  las  largas  líneas  que 
crea  el  programa  "Reductor”  para 
luego  volver  a  compactar  el  programa. 

Cuando  las  líneas  multisentencia  se 
dividen  en  varias,  los  números  de  las 
nuevas  lineas  se  crean  incrementando  en 
1  el  número  de  la  línea  original  por  cada 
sentencia  que  se  independiza.  Este  pro¬ 
cedimiento  se  utiliza  hasta  que  el 
número  de  una  de  las  lineas  que  se  están 
creando  alcanza  el  número  que  origina¬ 
riamente  tenia  la  siguiente  línea  del  pro¬ 
grama.  Cuando  esto  ocurre,  el  resto  de 
la  línea  original  se  copia  como  parte  de 
la  última  línea  generada,  conservando 
los  correspondientes  signos  de  dos  pun¬ 
tos  donde  sea  apropiado  situarlos,  para 
separar  las  diferentes  sentencias. 

El  programa  debe  tener  en  cuenta 
determinadas  palabras  clave,  o  “tokens”, 
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puesto  que  determinan  si  existe  la  posi¬ 
bilidad  o  no  de  que  pueda  ser  dividida, 
en  líneas  independientes,  una  linea 
determinada  del  programa.  De  esta 
manera,  cualquiera  de  los  datos  que  van 
detrás  de  una  de  las  instrucciones  tales 
como  GOTO,  End,  Run,  If,  Return, 
REM,  Stop,  List  o  CONT  se  copian,  sin 
modificar  nada,  hasta  el  final  de  la  linea 
actual  del  programa.  Asimismo,  una  vez 
detectadas  unas  comillas  en  un  pro¬ 
grama,  la  linea  tiene  que  ser  copiada 
hasta  llegar  a  otras  comillas  o  se  alcance 
el  final  de  la  linea. 

Descripción  de  la  linea 

Cuando  ejecutas  el  programa  “Expan¬ 
sor”,  puedes  controlar  el  tamaño  de  las 
líneas  del  programa  que  queremos  que 
sean  descompactadas. 

El  primer  mensaje  de  entrada  (linea 
370)  pedirá  la  longitud  mínima  de  la 
linea  que  tiene  que  ser  expandida.  Esta 
longitud  debe  ser  un  número  positivo 
con  un  valor  situado  entre  1  y  255,  pero 
niTse  realiza  ninguna  comprobación  del 


Ztl  programa 
debe  tener 


en  cuenta 
determinadas 
palabras  clave, 
o  “ tokens  ”, 


valor  que  se  introduce.  Si  simplemente 
pulsas  la  tecla  Return  cuando  se  realiza 
esta  petición,  el  valor  por  defecto  for¬ 
zará  al  programa  a  intentar  dividir 
todas  las  lineas  simples,  cuando  esto  sea 
posible.  El  hecho  de  seleccionar  un 
número,  como  el  20  por  ejemplo,  hará 
que  las  lineas  pequeñas  (con  20  o  menos 
caracteres  en  dicha  linea)  permanezcan 
intactas,  mientras  que  las  líneas  más 
largas  sean  expandidas. 

Después  de  que  selecciones  la  longi¬ 
tud  mínima  de  la  linea  que  desees, 
entonces  se  te  pide  que  proporciones  el 
nombre  del  fichero  donde  se  encuentra 
el  programa  en  Basic  que  va  a  ser  des¬ 
compactado  (lineas  390-400).  El  pro¬ 
grama  debe  encontrarse  en  disco, 
puesto  que  los  ficheros  de  programas  no 
pueden  ser  leídos  de  cinta.  Si  el  fallo  no 
fuera  encontrado  o  si  se  encontrara  en 
la  operación  algún  error  de  disco,  el 
programa  se  cancelará. 

Después  de  esto,  se  te  pide  que  intro¬ 
duzcas  el  nombre  deseado  del  programa 
expandido  que  va  a  ser  creado  (líneas 
410-420).  Este  nombre  no  puede  ser  el 
mismo  que  el  que  tenía  el  programa  ori¬ 
ginal  o  que  tenga  cualquiera  de  los 
ficheros  que  se  encuentran  actualmente 
en  el  disco.  Si  ya  existe  cualquier  fichero 
con  un  nombre  igual  al  que  le  propor¬ 
cionas,  o  si  se  encuentra  que  se  produce 
algún  tipo  de  error  de  disco,  el  ordena¬ 
dor  informará  de  estos  errores  y  el  pro¬ 
grama  terminará  de  ejecutarse. 

“Expansor"  trata  el  programa  que  va 
a  ser  descompactado  como  si  fuese  un 
fichero  secuencial  en  disco.  Según  va 
leyendo  el  programa  original,  cada  uno 
de  los  números  de  linea  se  va  visuali¬ 
zando  en  la  pantalla  (lineas  490-510). 
Esto  puede  servirte  como  indicación  de 
la  manera  en  que  van  progresando  las 
cosas  según  se  ejecuta  el  programa 
“Expansor";  puede  resultar  un  proceso 
bastante  lento. 

Después  de  que  el  “Expansor"  copia 
el  número  de  la  linea  original,  lleva  la 
línea  real  a  una  matriz  C  (líneas  550— 


560)  y  después  lee  el  siguiente  enlace  y  el 
siguiente  número  de  línea  (lineas  600- 
620).  Cuando  encuentra  el  enlace  cero  al 
final  del  programa,  el  número  de  linea 
siguiente  se  fuerza  a  que  sea  64.000.  Este 
número  es  mayor  que  cualquier  número 
posible  en  una  linea  de  programa  Basic, 
forzando,  de  esta  forma,  un  manejo 
adecuado  de  la  última  linea  del  progra¬ 
ma  que  se  está  leyendo. 

Una  vez  que  se  ha  leído  completa¬ 
mente  una  linea  entera  y  se  comprueba 
que  no  es  más  larga  que  el  límite  que  has 
impuesto  sobre  la  longitud  de  la  linea, 
comienza  a  buscar  el  signo  de  dos  pun¬ 
tos  y  determinados  caracteres  Basic 
(lineas  660-940),  comprobando  carácter 
a  carácter.  Si  la  linea  es  más  corta  que  la 
longitud  especificada  con  límite,  se 
copia  dejándola  intacta  (línea  860).  Si 
uno  de  los  caracteres  especiales  Basic  es 
encontrado  (lineas  820-850)  el  resto  de 
la  linea  se  copia  de  forma  intacta. 

Cuando  se  encuentra  un  signo  de  dos 
puntos,  se  divide  la  linea  siempre  que  el 
número  de  linea  actual,  mas  uno,  sea 
menor  que  el  número  de  la  línea 
siguiente  del  programa  original  (lineas 
700-760).  La  linea  actual  se  escribe  en  el 
disco  con  el  enlace  apropiado  y  el  flag 
de  terminación.  Los  dos  puntos  que  se 
encuentren  solos  al  comienzo  del  cual- 


se gura  te 
siempre 
que  tecleas 
el  comando 
completo 
—PRINTU— 


quier  línea  se  dejan  como  están,  mien¬ 
tras  que  los  dos  puntos,  o  los  espacios,  a 
mitad  de  una  linea  se  borran  (línea  750). 

Siempre  que  los  signos  de  comillas 
aparezcan  en  la  línea,  se  copia  el  resto 
de  la  línea  dejándola  intacta  hasta  que 
se  cierran  las  comillas  o  se  encuentre  el 
final  de  la  línea  (líneas  910-940).  Al  final 
del  programa,  se  escribe  un  enlace  cero 
en  el  disco  para  terminar  de  forma  ade¬ 
cuada  el  nuevo  programa  y  se  cierran 
todos  los  ficheros. 

■  Las  subrutinas  se  colocan  cerca  del 
principio  del  programa  para  ayudar  a 
que  vayan  las  cosas  más  rápido.  La 
subrutina  que  comienza  en  la  línea  230 
lee  dos  bytes,  mientras  que  en  la  240  se 
lee  un  byte  únicamente  del  fichero  del 
programa  original.  Cuando  el  programa 
vuelve  de  esta  subrutina,  el  último  carác¬ 
ter  leido  se  encuentra  en  C$,  con  los  có¬ 


digos  de  carácter  en  V  y  en  VL  Las  lineas 
270-290  comprueban  los  errores  de  disco 
y,  o  bien  se  vuelve  a  la  linea  que  había 
hecho  la  llamada,  o  bien  se  visualiza  el 
error  del  disco  y  se  deja  de  ejecutar  el 
programa.  Las  líneas  que  van  de  la  300  a 
la  320  sirven  para  calcular  el  enlace- 
correcto  que  hay  que  utilizar  en  L$  y, 
asimismo,  se  utilizan  para  escribir  la 
linea  completa,  de  acuerdo  con  el  enlace, 
al  fichero  del  nuevo  programa. 

Los  programas  que  se  crean  de  esta 
lorma,  por  tanto  descompactados  se 
encuentran  completamente  enlazados  y 
preparados  para  ejecutarse.  Puedes  uti¬ 
lizar  el  Descompactador  II  y  el  Com- 
pactador  II  sobre  cualquier  programa 
Basic  normalizado  que  no  contenga 
rutinas  en  lenguajes  ensamblador  den¬ 
tro  del  programa. 

Según  se  mencionó  en  el  articulo 
Compactador  II,  no  se  debe  utilizar  un 
signo  de  interrogación  como  abrevia¬ 
tura  del  Print  en  los  comandos  Print  #. 
La  línea  sigue  listándose  correctamente, 
pero  de  forma  interna,  el  código  resul¬ 
tará  ser  incorrecto  y,  por  consiguiente, 
generará  el  correspondiente  error  de 
Sintaxis  si  se  fuera  a  ejecutar.  Asegúrate 
siempre  que  tecleas  el  comando  com¬ 
pleto  —PRINT# —  para  evitar  proble¬ 
mas. 


|  Wtí  hfcP!  ******«*<MA«iM****i|^*iM***** 

110  Ktf'l 

1¿0  KfcM  tXPHNáOR 

140  REM 

1  140  kt.ii  POR  kübkkT  w.  Bhkep 

Iba  fv'EII  Ib  WlNUbÜK  ÜR.  ,  8TCÜ ,  HJ  ü8d 
04 

160  REl'l 

li’Ü  REN  *«#t*+*f+****t*f «***»*»**«** 
*♦ 

lf¡0 

li'U  ÜUTU  3t ¡ü 
¿00 

-10  kEll  »->»>  EUBKUT1NHS 
¿¿0  ■ 


230  üu-,ufc  ¿4a:  VI -=v 

u4ii  (JE rus.  t*:  L.USIJB  ¿¿8 

450  V=a-  IF  CIO”"  1HEN  V=HbC(Ü$> 

¿til  RE1URN 

-va  ItlPUT#lb . EN,  E  til , ET, ES  IF  EN*0  T 
HLN  RETURN 

¿«O  PRINT  PRINT  " ERROR í SPC 3 EN [ bPC J E 
LCÍPCIBISC.Ü"  PRINf 
¿yñ  PRINI  EN,EI-U,ET,Eb  0ÚTÚ  laOO 
J >.'6  IF  L*«"“  THEN  RETURN 
310  EÑ-Lh+LENt  L*  v  *¿  L 1  =  IHT  <  LH/2S6  > 
l  ¿--Lrt-(Ll#2Se>  > 

JÉÜ  PF  I N I  <  CHR#  •  LHR4 1 L 1  J  iL$  <  L 
*='"•  RETURN 

44U  REfl  *****  INICTHLI2ÑC  ION  ***** 
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ESTE  ES  EL  SIMBOLO  DE  COMMODORE.COM  PAÑI  A  AMERICANA.  LIDER  MUNDIAL  EN  NUMERO  DE  ORDENADORES  INSTALADOS. 


¡stePCde  Commodore 
ha  hecho  dudar  a  más  de  uno. 


La  oferta  del  mercado  de  los  ordenadores 
PC  dejaba  hasta  hoy  muy  sencilla  la  elección. 
Sin  embargo,  Commodore,  líder  reconocido 
en  varios  sectores  de  la  informática,  ha  ofreci¬ 
do  una  respuesta  alternativa  que  atiende  ple¬ 
namente  las  exigencias  empresariales  y  de  pro¬ 
fesionales  liberales:  su  nuevo  ordenador  PC. 

El  nuevo  Commodore  PC  dispone  de  una 
versatilidad  acorde  con  una  tecnología  depura¬ 
da  en  constante  evolución  y  compatible  con  el 
software  standard  que  más  le  suena. 


Estos  avances,  y  un  precio  realmente  intere¬ 
sante,  han  planteado  serias  dudas  entre  los 
profesionales  más  cualificados  a  la  hora  de  ele¬ 
gir  un  buen  PC. 

Sin  duda  Commodore.  con  el  mayor  número 
de  ordenadores  vendidos  en  el  mundo  se  afian¬ 
za  en  el  campo  empresarial  con  mucha  fuerza. 

Si  está  interesado  en  conocer  más  de  cerca  el 
nuevo  PC  de  Commodore,  pregunte  en  cual¬ 
quier  concesionario  Commodore,  le  sacará  de 
dudas. 

PRINCIPALES  CARACTERISTICAS 
-  256  K  de  RAM  de  9  bits  -  Zócalos  para  512  K 
más  -  2  unidades  de  diskete  de  360  R  -  Disco  10 
Mb  opcional  -  Interfases  serie  y  pararelo,  in¬ 
cluidos  -  5  slots  compatibles  -  Alta  resolución 
incluida  -  El  mejor  precio  en  esta  categoría. 


Ce 

commodore 


Microelectrónica  y  Control  cV  Valencia,  49-53  08015  Barcelona  -  d  Princesa,  47  3.°  G  28008  Madrid 
Unico  representante  de  Commodore  en  España. 
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Tus  primeros  pasos  en  BASIC 

Si  quieres  comunicarte  con  tu  ordenador, 
tendrás  que  aprender  a  hablar  su  mismo  lenguaje. 

Este  artículo  explica  algunos  conceptos  de  Basic  y  frases  que  te  situarán 
en  el  buen  camino  para  que  puedas  llegar  a  programar. 


Intentar  aprender  Basic  es  como 
intentar  aprender  una  lengua 
extranjera.  Tienes  que  memorizar 
algunas  de  las  palabras  y  aprender 
cómo  se  ponen  juntas  en  frases  que  ten¬ 
gan  algún  significado. 

Afortunadamente,  sólo  hay  alrededor 
de  63  palabras  en  Basic  y  únicamente  un 
puñado  de  “reglas  gra¬ 
maticales”  que  tengas  ^  íffl/s 
que  aprender.  La  __  ^  \(i jCt 


parte  más  dura  de  aprender  es  la  lógica 

Ide  la  programación  y  cómo  detectar  o 
depurar  los  problemas  del  programa. 

Sirvientes  y  tostadores 

Los  ordenadores  son  más  o  menos 
|  tan  listos  como  un  tostador.  Tienes  que 
ir  diciendo  al  ordenador  exac¬ 
tamente  qué  es  lo  que  tiene 
que  hacer  a  través  de 


un  programa,  que  es  un  conjunto,  paso 
a  paso,  de  instrucciones  escritas  en 
inglés  computerizado  que  se  denomina 
BASIC.  Cada  una  de  las  instrucciones 
debe  ser  suficientemente  simple  para 
que  pueda  entenderla  el  ordenador,  lo 
cual  muchas  veces  no  es  nada  sencillo  de 
conseguir. 

Imagínate  que  un  sirviente  muy 
rápido,  pero  muy  tonto  al  mismo 
tiempo,  va  a  ir  a  tu  casa  a  hacer  algo  que 
tú  quieres  que  haga.  El  problema  estriba 
en  que  tú  no  estarás  en  casa  cuando 
venga  para  poder  verle,  luego  tienes  que 
dejarle  todas  tus  instrucciones  escritas 
en  tarjetas  numeradas. 

Cada  tarjeta  puede  contener  única¬ 
mente  una  instrucción  y  el  sirviente 
debe  seguir  las  tarjetas  en  el  orden  que 
las  has  marcado.  Si  quieres  que  él 
barra  el  vestíbulo,  en  primer  lugar 
tienes  que  darle  instrucciones  de  que 
tome  una  escoba  del  armario,  o  por 
el  contrario,  se  sentirá  perdido  y  sin 
saber  qué  hacer  cuando  llegue  a  la 
instrucción  “barrer”. 
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Puedes,  de  esta  forma,  empezar  a  vis¬ 
lumbrar  hasta  qué  punto  podrían  po¬ 
nerse  las  cosas  difíciles  si  quisieras 
que  el  sirviente  hiciese  el  balance  de  tus 
talonarios  o  mantuviese  un  seguimiento 
de  las  finanzas  de  tu  negocio. 

Un  peligro  que  corren  todos  los  nue¬ 
vos  programadores  es  intentar  atacar  un 
problema  que  es  demasiado  compli¬ 
cado.  Tienes  que  aprender  una  serie  de 
conceptos,  a  veces  algo  dificultosos, 
cuando  comiences. 

Una  razón  por  la  cual  resultan  a  veces 
un  tanto  complicados  de  entender  estos 
conceptos  es  que  los  libros  que  tratan 
sobre  temas  de  programación  general¬ 
mente  no  están  escritos  en  el  estilo  de 
lenguaje  que  estamos  acostumbrados  a 
manejar  la  mayoría  de  nosotros  en 
nuestras  conversaciones.  Este  artículo 
utiliza  algunos  términos  que  pueden 
sonar  un  poco  tontos,  pero  también 
pueden  resultar  más  claros  y  más  fáciles 
de  entender. 

Variables 


Piensa  en  las  variables  como  si  fuesen 
los  bolsillos  del  mono  de  un  carpintero. 

Cada  bolsillo  lleva  una  etiqueta  que 
es,  o  bien  una  letra  y  un  número,  o  bien 
dos  letras  (por  ejemplo,  LH  para  el  bol¬ 
sillo  de  la  cadera  izquierda  o  H 1  y  H2 
para  el  bolsillo  1  y  para  el  bolsillo  2). 
Además,  cada  bolsillo  puede  contener 
únicamente  cierto  tipo  de  cosas. 

Hay  un  cierto  número  de  diferentes 
clases  de  bolsillos  de  ordenador,  pero 
únicamente  tenemos  que  preocuparnos 
por  ahora  por  dos  tipos  determinados: 
bolsillos  que  pueden  contener  sola¬ 
mente  números  y  aquellos  que  pueden 
contener  cualquier  cosa  que  teclees  en  el 
teclado  (letras,  números,  teclas  de  cur¬ 
sor,  etc.). 

En  la  jerga  informática,  a  estas  dos 
clases  de  bolsillos  se  les  denomina 
variables  numéricas  y  variables  de 
cadena  (string).  Una  manera  sencilla  de 
diferenciarlas  es  mediante  un  signo  de 
dólar  que  se  pone  al  final  de  la  etiqueta 
de  cualquier  variable  de  cadena.  AA  es 
la  etiqueta  de  una  variable  numérica  y 
AA$  es  la  etiqueta  que  corresponde  a 
una  variable  de  cadena  que  puede  con¬ 
tener  cualquier  cosa.  Probablemente 
seria  más  sencillo  si  únicamente  hubiese 
una  sola  clase  de  bolsillo,  pero  los  orde¬ 
nadores  necesitan  que  se  les  indique 
cuándo  tienen  que  sumar  dos  números  o 
cuándo  tienen  que  sumar  dos  letras. 

Puedes  pensar  que  los  bolsillos  con  $ 
son  los  que  pueden  contener  palabras  (o 
cadenas  de  caracteres).  Algunas  veces 
las  palabras  tienen  sentido  (“perro'', 
"gato",  "uno”);  sin  embargo,  otras 
veces  no  tienen  porqué  tenerlo 
(C087JN). 

Si  le  dices  al  ordenador  que  sume  las 
palabras  "gato”  y  “perro",  te  dará 
como  resultado  “gatoperro".  Si,  por  el 
contrario,  le  dices  que  sume  1  y  2  dará 


como  resultado  3.  Pero  si  le  dices  que 
sume  las  “palabras"  “2"  y  “4"  te  pro¬ 
porcionará  un  resultado  de  24. 
(Recuerda,  una  palabra  puede  ser  cual¬ 
quier  carácter  o  combinación  de  carac¬ 
teres  que  se  tecleen  en  el  teclado). 

También  tienes  que  aprender  cómo  el 
ordenador  mueve  la  información  hacia 
dentro  y  hacia  afuera  de  los  bolsillos  y 
cómo  lleva  a  cabo  operaciones  aritméti¬ 
cas  sobre  cosas  que  ya  se  encuentran  en 
los  bolsillos.  Un  signo  igual  (=)  significa 
“introduce  en  este  bolsillo  todo  lo  que 
haya  a  la  derecha  del  signo  =  ".  De  esta 
forma,  si  quieres  que  el  ordenador 
introduzca  un  6  en  el  bolsillo  LH,  tienes 
que  teclear  LH  =  6.  Si  quieres  poner  la 
palabra  GATO  dentro  del  bolsillo 
denominado  CAS,  tendrás  que  teclear 
CAS  =  “CAT".  Las  comillas  son  esen¬ 
ciales  y  obligatorias  en  las  variables  de 
cadena. 

Si  quieres  que  el  ordenador  sitúe  el 
resultado  de  la  suma  de  dos  números  en 
un  determinado  bolsillo,  tendrás  que 
teclear  RE  =  7  +  4.  El  ordenador,  en 
primer  lugar,  va  a  sumar  los  números  y, 
después,  va  a  colocar  la  respuesta  a 
dicha  operación  en  el  bolsillo  cuya  eti¬ 
queta  sea  RE. 


riormente,  tendría  que  almacenar  la 
respuesta  en  el  bolsillo  que  va  a  con¬ 
tener  dicho  resultado  y  que  se  ha  deno¬ 
minado  como  AN.  Si  la  línea  fuera  AN 
=  F1  +  6,  el  ordenador,  en  primer  lugar, 
tendría  que  buscar  el  número  que  se 
encuentra  almacenado  en  el  bolsillo  Fl, 
sumarle  a  6  y,  después,  almacenar  el 
resultado  en  AN.  Por  lo  tanto,  si  tecleas 
AN  =  AN  +  6  y  pulsas  la  tecla 
RETURN,  en  primer  lugar,  el  ordena¬ 
dor  va  a  buscar  el  número  que  ya  se 
encuentra  en  AN,  le  suma  a  6  y,  des¬ 
pués,  introduce  el  nuevo  número  resul¬ 
tante  otra  vez  en  la  variable  AN. 

Vale  la  pena  insistir  un  poco  hasta 
que  entiendas  el  concepto  de  las  varia¬ 
bles.  Prueba  unos  cuantos  experimentos 
en  tu  ordenador  y  mira  a  ver  qué  es  lo 
que  sucede  con  cada  uno  de  ellos.  ¡No 
hay  nada  que  puedas  teclear  en  el 
teclado  del  ordenador  que  pueda  dañar 
al  ordenador! 

Operaciones  de  ordenador 


Todas  las  diferentes  acciones  que 
puede  llevar  a  cabo  un  ordenador,  pue¬ 
den  dividirse  en  tres  tipos:  conseguir 
información  (entrada),  hacer  alguna 


Cada  tarjeta  puede  contener  únicamente 
una  instrucción  y  el  sirviente  debe  seguir  las  tarjetas 
en  el  orden  que  las  has  marcado.  Si  quieres 
que  él  barra  el  vestíbulo,  en  primer  lugar  tienes 
que  darle  instrucciones  de  que  tome  una  escoba 
del  armario,  o  por  el  contrario,  se  sentirá  perdido 
y  sin  saber  qué  hacer  cuando  llegue  a  la  instrucción 
“barrer". 


Si  quieres  que  el  ordenador  tome  un 
número  de  un  bolsillo,  le  sume  al 
número  que  se  encuentre  en  otro  bolsi¬ 
llo  y,  posteriormente,  introduzca  el 
resultado  de  dicha  suma  en  un  tercer 
bolsillo,  tienes  que  teclear  TH  =  FJ  +  SE. 
En  este  caso,  el  ordenador  tomaría  el 
número  del  bolsillo  cuya  etiqueta  fuese 
FI  (el  primero),  le  sumaría  al  número 
que  se  encontrara  en  el  bolsillo  denomi¬ 
nado  SE  (el  segundo)  y  pondría  el  resul¬ 
tado  de  dicha  suma  en  el  bolsillo  cuya 
etiqueta  fuese  TH  (el  tercero).  Recuerda 
que  todo  lo  que  se  encuentre  a  la  dere¬ 
cha  del  signo  de  igualdad  se  realiza  en 
primer  lugar  y  después  es  cuando  se 
introduce  el  resultado  en  el  bolsillo  que 
está  indicado  en  la  parte  izquierda  del 
signo  igual. 

Tomando  todo  esto  en  cuenta,  tiene, 
por  tanto,  sentido  el  teclear  AN  = 
AN  +  6,  por  ejemplo.  Si  la  línea  fuese 
AN  =  4  +  6,  el  ordenador,  en  primer 
lugar,  tendría  que  sumar  4  y  6  y,  poste¬ 


cosa  con  dicha  información  (proceso), 
después  poner  esa  información  en  algún 
sitio  (salida). 

Entrada 


La  entrada  representa  el  proceso  por 
el  que  se  introduce  algún  tipo  de  infor¬ 
mación  dentro  del  ordenador,  de  tal 
forma  que  pueda  realizarse  algo  con 
ella.  Uno  de  los  bloques  de  información 
más  importantes  con  que  debe  ser  ali¬ 
mentado  el  ordenador  es  el  programa  en 
sí  mismo  (de  cualquier  otra  manera,  el 
ordenador  no  podrá  saber  qué  es  lo  que 
tiene  que  hacer  cuando  le  llegue  el  resto 
de  la  información). 

El  primer  paso  es  teclear  el  programa. 
Puedes  hacer  dos  cosas,  o  bien  puedes 
ejecutar  el  programa  después  de  haberlo 
tecleado  o  bien  puedes  salvarlo  para  que 
sea  cargado  de  nuevo  en  el  ordenador 
más  tarde.  En  cualquier  caso,  el  pro¬ 
grama  debe  introducirse  de  alguna 
forma  en  el  ordenador. 
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REGLA 

RELOJ  CALCULADORA 


•  Reloj  con  posición  "vertical"  para 
más  fácil  lectura. 

•  Calculadora  "extraíble”  de  la 
regla  con  las  4  funciones  elementales 
(+,  — ,  X,  :),  posee  raíz  y  %  así 
como  memoria. 

•  Tabla  de  conversión  de  medidas 
impresa  en  la  regla. 


GRAN  PINZA 

(en  madera  barnizada j 
Sirve  tanto  de  pisapapeles  como 
para  sujetarlos,  lleva  impresos  los 
distintivos  de  todas  nuestras 
publicaciones. 


Precio  adjuntando  boletín:  300  Pías. 


BOUTIQUE 


Commodore  World 


Si  eres  “commodoriano” 
...  ¡¡¡Que  lo  sepan!!! 

BOUTIQUE  Commodore  World  -  Boletín  de  Pedido 


CAMISETA  DE  FELPA 

•  Estampada  en  el  anverso  con  el 
distintivo  de  Commodore  World  y  en 
el  reverso  con  el  distintivo  de  las 
publicaciones  hermanas, 
MicroSistemas  y  PC  World. 

P.V.P.  1.950  Pías. 

Precio  adjuntando  boletín:  1.500  Ptas. 


NOMBRE  . 

DIRECCION  . 

POBLACION  . 

(C.P . )  PROVINCIA 

TELEF.: . 

FORMA  DE  PAGO 


□  Cheque  por  ralor  de  . pesetas  » 

□  Enrío  giro  n» .  por . pesetas  ) 


DESEO  ME  ENVIEN  LA  CANTIDAD  DE: 

□  REGLAS  RELOJ-CALCULADORAS  A  2.500  Pus 

□  CAMISETAS  DE  FELPA  A  1.500  Ptas.  c/n.  ] 
TALLAS  MEDIANAS  □  o  GRANDE  o 

□  GRAN  PINZA  A  300  Ptas.  c/u. 


+  100  Ptas.  por  gastos  de  enrío  por  unidad. 


ENVIAR  A  COMMODORE  WORLD  •  C/BARQUILLO.  21-3»  IZQDA.  •  28004  MADRID 


A  HIGH  SPEED,  RELIABLE  MASS  STORAGE 

QUICKC  DATA  DRIVE 

FOR  COMPUTERS 


s  H0IH 


"^n«l 


QUICK  DATA  DRIVE 


DIMENSIONES:  4  5”  x  2  68  "  x  5.87"' 


fJF*  - 


CARACTERISTICAS 


-  ALTA  VELOCIDAD:  15  VECES  MAYOR  QUE  LA  DE  UN  CASSETTE 

-  VELOCIDAD:  14.000  BITS/SEGUNDO 

-  FUNCIONES  TOTALMENTE  CONTROLADAS  POR  EL  ORDENADOR 

-  INDICACION  DE  FUNCIONAMIENTO 

-  CLAVIJA  EXTERNA  PARA  DUPLICACION  CON  CASSETTE  U  OTRO  QUICK  DATA  DRIVE 

-  COMPATIBLE  CON  COMMODORE  64  Y  VIC-20 

-  MAS  RAPIDO  QUE  LA  UNIDAD  DE  DISCO 


COMERCIAL  MORON 


ERCILLA,  12  -  TELEFONO  468  26  93 
2800 5- MADRID 

Para  información  telefónica  solamente  de  4-5  tarde 
Preguntar  por  el  Sr.  Morón 


La  manera  más  sencilla  es  comprar  el 
programa  a  alguna  otra  persona  y, 
entonces,  cargarlo  en  el  ordenador  con 
un  Datasette  o  con  una  unidad  de  disco. 
Pero  si  quieres  escribir  tus  propios  pro¬ 
gramas,  tienes  que  disponer  de  algún 
método  para  salvarlos.  De  cualquier 
otra  forma,  en  cada  ocasión  que  quieras 
utilizar  el  programa,  tendrás  que 
teclearlo  completo  desde  el  principio 
hasta  el  final  una  y  otra  vez.  Esto  puede 
estar  bien  si  es  un  programa  muy  corto 
o  si  es  alguno  que  vayas  a  utilizar  sola¬ 
mente  una  vez. 

Sin  embargo,  generalmente  es  mejor 
escribir  un  programa,  salvarlo  en  cinta 
o  en  disco,  depurarlo,  modificarlo  o 
hacer  lo  que  se  quiera  con  él,  sabiendo 
que  si  se  destruyera  en  algún  momento, 
tienes  una  copia  de  backup. 

Un  detalle  a  tener  en  cuenta:  cuando 
salves  un  programa  en  cinta  o  en  disco, 
todo  lo  que  hubiera  en  cualquiera  de  los 
bolsillos  (variables)  se  desprecia,  por  lo 
que  si  quieres  que  el  programa  man¬ 
tenga  ciertas  cosas  en  ciertos  bolsillos, 
tendrás  que  escribir  al  principio  dichos 
datos  en  el  programa.  Por  ejemplo,  si 
quieres  que  aparezcan  las  palabras 
“Hola,  Sam”  cuando  se  ejecute  el  pro¬ 
grama,  tendrás  que  introducir  dichas 
palabras  en  el  programa. 

Tan  pronto  como  se  haya  introducido 
el  programa  en  el  ordenador,  hay  otra 
clase  de  información  que  tiene  que  ser 
añadida  mientras  que  esté  ejecutando  el 
programa  (incluso  en  el  caso  de  que  seas 
la  única  persona  que  jamás  vaya  a  utili¬ 
zar  el  programa,  va  a  haber  algunas 
veces  que  tú  mismo  quieras  introducir 
nueva  información. 

Si  quieres  diseñar  un  programa  que 
sume  los  números  suministrados  por  el 
usuario,  debes  conseguir  que  tales 
números  se  puedan  introducir  en  el  pro¬ 
grama  mientras  éste  se  está  ejecutando. 
Cualquier  tipo  de  información  que  se 
introduzca  en  el  ordenador  mientras  se 
esté  ejecutando  el  programa,  puede  con¬ 
siderarse  que  es  una  entrada  (por  ejem¬ 
plo,  puede  introducirse  un  nombre, 
pueden  introducirse  números  o  incluso 
el  movimiento  de  un  Joystick).  El 
comando  que  se  utiliza  con  una  mayor 
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frecuencia  para  introducir  información 
en  el  ordenador  mientras  se  está  ejecu¬ 
tando  un  programa  es  la  instrucción 
Input. 

Cuando  el  ordenador  detecta  la  pala¬ 
bra  Input,  cesa  la  ejecución  del  pro¬ 
grama  y  espera  a  que  se  teclee  la  corres¬ 
pondiente  información  y  que  sea 
pulsada  la  tecla  Return.  Entonces,  el 
ordenador  coloca  lo  que  se  haya  intro¬ 
ducido  en  el  bolsillo  que  se  hubiera 
especificado  y,  a  continuación,  prosigue 
la  ejecución  del  programa. 

Esto  significa  que  la  variable  que 
hayas  señalado  en  el  comando  Input 
debe  consistir  en,  o  bien  un  bolsillo 
numérico  (si  esperas  que  se  vaya  a 
introducir  un  número)  o  un  bolsillo  de 
cadena  de  caracteres  (si  esperas  que 
pueda  introducirse  cualquier  cosa).  Si  la 
respuesta  que  se  haya  pulsado  a  la  peti¬ 
ción  de  entrada,  no  corresponde  con  el 
tipo  de  bolsillo,  obtendrás  un  mensaje 
de  error. 


Proceso 


La  siguiente  actividad  que  puede  desa¬ 
rrollar  un  ordenador  se  denomina  pro¬ 
ceso.  Esto  consiste  en  la  operación  que 
el  ordenador  lleva  a  cabo  con  la  infor¬ 
mación  que  se  haya  introducido  en  el 
ordenador  como  cualquiera  de  las 
entradas  que  se  han  descrito  anterior¬ 
mente. 

Muchas  áreas  de  proceso  tienen  sus 
propios  nombres  y  pueden  diferenciarse 
según  un  conjunto  de  categorías. 

Bucles,  o  acciones  repetitivas,  que 
indican  al  ordenador  que  lleve  a  cabo 
alguna  cosa  una  y  otra  vez  durante  un 
número  determinado  de  veces. 

Operaciones  aritméticas  como  son  la 
suma,  la  resta,  la  multiplicación,  etc., 
que  los  ordenadores  llevan  a  cabo  con 
una  infalibilidad  y  una  rapidez  cega¬ 
dora. 

Subrutinas  que  son  mini-programas 
que  hay  dentro  de  un  programa  y  que 
pueden  utilizarse  una  y  otra  vez. 

Toma  de  decisiones  (en  un  lenguaje 
coloquial)  que  se  llevan  a  cabo  por  parte 
de  la  gran  mayoría  de  los  programas  en 
determinados  momentos,  incluso  aun¬ 
que  lo  único  que  se  tenga  que  decidir  no 
sea  otra  cosa  que  cuando  se  finaliza  la 
ejecución  del  programa. 

Almacenamiento  y  recuperación  de 
datos  que  incluye  el  traslado  de  infor¬ 
mación  de  un  sitio  a  otro. 

Bucles 


Hay  dos  formas  básicas  de  conseguir 
que  el  ordenador  haga  alguna  cosa  una 
y  otra  vez  de  forma  repetitiva.  Para  vol¬ 
ver  a  nuestra  analogía  anterior,  la  forma 
más  sencilla  es  decirle  que  vaya  de 
vuelta  a  una  línea  determinada  o  a  un 
número  de  “tarjeta”  en  particular  y 
comience  a  seguir  las  intrucciones  desde 
allí.  El  sirviente  lee  las  tarjetas  1,  2,  3,  4 


y  5,  y  cuando  lee  la  tarjeta  número  6, 
ésta  dice  algo  parecido  a  “vuelve  a  la 
tarjeta  número  2  y  comienza  a  hacer  de 
nuevo  lodo  desde  allí".  Esto  conduce, 
sin  embargo,  a  un  nuevo  problema. 

Siendo  como  es  literalmente  un  bruto 
mental,  el  ordenador  llevará  a  cabo  las 
tareas  de  cada  una  de  las  tarjetas  (si  se 
encuentran  escritas  con  las  reglas 
correctas),  llegará  a  la  tarjeta  6,  comen¬ 
zará  de  nuevo  desde  la  2,  llegará  otra 
vez  hasta  la  6,  de  vuelta  a  la  2,  de  nuevo 
hasta  la  6,  entonces  vuelve  a  la  2,  y  con¬ 
tinuará  de  esta  manera,  ad  infinitum. 
Seguirá  haciendo  las  mismas  cosas  una 
y  otra  vez  hasta  que  tires  del  enchufe  o 
pulses  la  tecla  de  parada. 

Esto  es  lo  que  se  denomina  un  bucle 
sin  fin,  por  razones  obvias.  Hay  diferen¬ 
tes  formas  de  solucionarlo. 

Si  el  paso  3  dijera  “suma  1  al  número 
que  se  encuentra  en  el  bolsillo  LH",  y 
después  el  paso  4  dijese  "si  el  número 
que  se  encuentra  en  el  bolsillo  LH  es 
igual  a  47,  entonces  finaliza  el  pro¬ 
grama”,  entonces  el  ordenador  repetiría 
los  pasos,  que  van  desde  el  2  hasta  el  6, 
un  total  de  47  veces.  Cada  vez  que  se 
pasara  a  través  del  bucle,  se  añadiría  I  a 
LH  y  cuando  LH  fuese  igual  a  47,  el 
programa  terminaría. 

(Aún  hay  un  programa  potencial 
aquí.  Si  el  número  que  se  encuentra  en 
el  bolsillo  LH  fuera,  por  alguna  razón, 
en  algún  momento  igual  a  50,  entonces 
LH  se  iría  haciendo  cada  vez  más 
grande,  pero  en  ningún  momento  llega¬ 
ría  a  ser  igual  a  47.  De  este  modo,  el 
ordenador  habría  entrado  de  nuevo  en 
un  bucle  sin  fin). 

La  idea  de  situar  un  “test"  dentro  de 
un  bucle  se  denomina  flag.  En  Basic,  ya 
hay  un  tipo  determinado  de  bucles,  lla¬ 
mados  bucles  FOR...  NEXT,  que  ya 
vienen  provistos  de  un  flag.  Tienes  que 
indicar  al  ordenador  cuantas  veces  quie¬ 
ras  que  se  repita  la  operación  y  cuando 
se  alcance  dicho  número,  el  ordenador 
continúa  con  la  siguiente  instrucción  del 
programa. 

El  formato  de  un  bucle  For...  Next  es 
como  se  indica  a  continuación: 

FOR  bolsillo  =  número  de  comienzo 
TO  número  de  finalización, 
y,  posteriormente,  en  el  programa  tiene 
que  incluirse  la  sentencia: 

NEXT  bolsillo 

En  nuestro  ejemplo,  la  tarjeta  número 
2  podría  leerse  como  FOR  LH  =  1  TO 
47,  y  la  tarjeta  número  6  tendría  que 
decir  NEXT  LH.  Cada  vez  que  el  orde¬ 
nador  llegara  a  la  tarjeta  número  6,  sal¬ 
taría  a  la  tarjeta  número  2  hasta  que  LH 
fuese  igual  a  47.  Cuando  sucediera  tal 
cosa,  el  ordenador  saltaría  a  la  siguiente 
tarjeta  que  seria  la  número  7. 

Si  quieres  que  el  ordenador  imprima 
la  palabra  Hola  doce  veces  y  después  se 
pare,  el  programa  podría  ser  algo  como  i 
lo  que  se  muestra  a  continuación: 


10  FOR  RH  =  1  TO  12 
20  PRINT  “HOLA" 

30  NEXT  RH 
40  END 

RH  es  el  bolsillo  flag  que  seguirá  la 
pista  del  número  de  veces  que  el  orde¬ 
nador  ha  recorrido  el  bucle.  General¬ 
mente,  también,  numeramos  las  tarjetas 
(lineas  del  programa)  de  diez  en  diez  (el 
ordenador  no  tiene  en  cuenta  cuáles  son 
los  números  que  hay  en  cada  linea; 
siempre  va  ejecutando  en  secuencia 
desde  los  números  más  bajos  a  los 
números  más  altos,  a  menos  que  le  indi¬ 
quemos  que  lo  haga  de  otra  manera). 
Asimismo,  la  numeración  por  decenas 
deja  huecos  libres  para  poder  insertar 
lineas  de  programa  con  posterioridad,  si 
así  se  necesitase. 

En  el  ejemplo  del  programa  anterior, 
la  línea  número  10  establece  el  bucle. 
Aquí,  indicamos  al  ordenador  qué 
variable  es  la  que  tiene  que  utilizar 
como  flag  (RH),  con  qué  número 
queremos  que  empiece  la  cuenta  (1  en  el 
ejemplo)  y  hasta  qué  número  queremos 
que  llegue  la  cuenta  (12  en  el  ejemplo) 
antes  de  que  Finalice  el  bucle  y  se  conti¬ 
núe  con  el  programa. 

La  línea  20  imprime  nuestro  mensaje 
en  la  pantalla  (salida). 

La  línea  30  indica  al  ordenador  que 
vaya  de  nuevo  a  la  linea  donde 
comienza  el  bucle  (linea  10)  y  comience 
de  nuevo  otra  vez. 

La  linea  40  indica  al  ordenador  que  se 
finalice  con  la  ejecución  del  programa. 
Esta  es  la  linea  a  la  cual  irá  el  ordenador 
cuando  se  haya  repetido  el  bucle  dos 
veces,  como  se  le  había  indicado,  ya  que 
siempre  que  se  termina  de  realizar  un 
bucle  completo,  se  salta,  para  continuar 
con  el  programa,  a  la  línea  siguiente  a  la 
línea  que  contiene  el  NEXT  del  bucle 
FOR...  NEXT  que  acaba  de  Finalizarse. 

Operaciones  aritméticas 


Las  operaciones  aritméticas  son  la 
clase  de  operaciones  que  mejor  llevan  a 
cabo  los  ordenadores.  Estos  suman,  res¬ 
tan  y  multiplican  números  con  una 
velocidad  increíble.  Teclea  en  tu  orde¬ 
nador: 

PRINT  44459.  2576  /  456.  32 
y  antes  de  que  puedas  lomar  un  respiro, 
imprimirá  97.43. 

Si  quieres  que  un  programa  única¬ 
mente  lleve  a  cabo  una  manipulación 
rápida  y  correcta  de  ciertos  números, 
entonces  te  has  dirigido  al  lugar  idóneo. 
El  truco  consiste  en  desarrollar  la  fór¬ 
mula,  de  manera  que  el  ordenador 
pueda  ejecutar  todo  en  el  orden 
correcto.  Si  tienes  una  fórmula  larga  de 
gran  complejidad  que  te  gustaría  que  el 
ordenador  te  la  calculara,  hay  unas 
cuantas  reglas  sencillas  que  puedes 
seguir.  O  bien  divides  la  fórmula  en 
pasos  más  pequeños,  poniendo  cada 
uno  de  los  pasos  en  lineas  independien¬ 
tes,  o  bien  sitúas  las  operaciones,  que 


quieras  que  se  lleven  a  cabo  en  primer 
lugar,  encerradas  entre  paréntesis,  por 
ejemplo,  introduce; 

PRINT  12  *  (5  +  32)  —  (43.65  +  78) 
o  bien  utiliza  este  programa: 

10  x  =  5  +  32 
20  y  =  x  *  12 
30  z  =  43.65  +  78 
40  LH  =  Y  —  Z 
50  PRINT  LH 

Esto  último  es  más  sencillo  de  enten¬ 
der  y,  también,  es  menos  probable  que 
te  puedas  confundir  al  introducirlo  en  el 
ordenador.  (También  es  un  buen  ejem¬ 
plo  de  movimiento  de  la  información 
entre  los  diferentes  bolsillos). 

Subrutinas 


Las  subrutinas  son  miniprogramas 
que  se  utilizan  para  llevar  a  cabo  una 
serie  de  instrucciones  muchas  veces  den¬ 
tro  de  un  programa.  Un  ejemplo  es  una 
rutina  que  imprima  un  menú  de  opcio¬ 
nes  diferentes  en  la  pantalla.  Una  vez 
que  selecciones  una  opción,  el  ordena¬ 
dor  sale  del  menú  para  llevar  a  cabo 
dicha  opción,  volviendo  después  de 
nuevo  a  imprimir  el  menú  otra  vez. 

Para  enviar  al  ordenador  a  la  subru¬ 


tina,  teclea  GOSUB  y  el  número  de  la 
línea  donde  comienza  la  subrutina.  El 
ordenador  salta  a  dicha  linea,  lleva  a 
cabo  las  tareas  que  se  encuentren  espe¬ 
cificadas  en  la  subrutina  y,  después, 
cuando  encuentra  la  palabra  de  Basic 
RETURN  que  se  sitúa  después  de  la 
última  instrucción,  el  ordenador  salta 
de  vuelta  a  la  línea  de  programa  situada 
inmediatamente  después  de  la  instruc¬ 
ción  GOSUB.  Una  subrutina  de  menú 
sencilla  podría  ser  la  siguiente: 

10  GOSUB  100 

20  IF  LH  =  1  THEN  PRINT"ESTO" 
30  IF  LH  =  2  THEN 
PRINT'*  AQUELLO” 

40  IF  LH  =  3  THEN  PRINT"OTRA 
COSA” 

50  GOTO  10 

100  PRINT“ELIGE  UN  NUMERO" 
110  PRINP'ENTRE  1  y  3" 

120  PRINT 

130  PRINT"  1  —  PRINT  ESTO" 


140  PRINT“2  —  PRINT 
AQUELLO” 

150  PRINT“3  —  PRINT  OTRA 
COSA” 

El  programa  anterior  comienza  diri¬ 
giéndose  a  la  subrutina  que  empieza  a 
partir  de  la  linea  100.  Las  líneas  100-150 
imprimen  el  menú  en  la  pantalla  (la 
linea  120  sólo  imprime  una  linea  en 
blanco  para  hacer  que  la  pantalla  apa¬ 
rezca  más  clara.  La  linea  160  indica  al 
ordenador  que  permanezca  en  situación 
de  espera  hasta  que  el  usuario  teclee 
alguna  cosa  y  pulse  la  tecla  Return.  Tan 
pronto  como  se  pulsa  la  tecla  Return,  el 
número  que  se  teclea  se  lleva  a  ocupar  el 
bolsillo  (variable)  denominado  LH.  La 
línea  170  envía  al  ordenador  de  nuevo 
de  vuelta  a  la  linea  10.  Después  de  esto, 
en  las  líneas  20  a  la  40,  el  ordenador 
comprueba  el  número  situado  en  LH 
para  verificar  si  es  igual  a  1 , 2  ó  3.  Si  LH 
corresponde  a  uno  de  estos  números, 
entonces  se  imprime  el  mensaje  ade¬ 
cuado  en  la  pantalla  y  la  linea  50  envía 
al  ordenador  de  vuelta  para  que 
comience  otra  vez  el  procedimiento 
completo,  es,  por  tanto,  un  bucle  sin  Fin. 

Es  esencial  que  el  ordenador  no  se 
encuentre  con  la  palabra  RETURN  en 


un  programa  a  menos  que  ya  haya  sido 
enviado  a  una  subrutina  con  la  palabra 
GOSUB.  Si  borrases  la  linea  número  50 
y  dejases  que  el  programa  se  ejecutara, 
el  ordenador  iría  a  la  subrutina  (lineas 
100-170),  imprimiría  el  menú  antedicho, 
seleccionaría  una  de  las  opciones,  volve¬ 
ría  a  la  sección  de  imprimir  el  menú  de 
nuevo,  esperaría  una  nueva  selección  y 
después,  cuando  llegase  al  RETURN. 
no  sabría  dónde  volver  y  daría  un  mensaje 
de  error  que  dijera  RETURN  sin  GOSUB. 

La  mayor  parte  de  los  programadores 
ponen  todas  las  subrutinas  de  un  pro¬ 
grama  dentro  de  una  porción  de  los 
programas  y  dirigen  al  ordenador  hasta 
este  área  mediante  sentencias  GOTO. 
(GOTO  simplemente  indica  al  ordena¬ 
dor  que  salte  hacia  delante  o  hacia  atrás 
hasta  una  linea  que,  generalmente,  no  se 
encuentra  en  secüencia  con  el  resto  de 
las  líneas  que  viene  ejecutando  el  pro¬ 
grama  y  para  continuar  después  desde 
dicha  línea). 
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*3/  le  dices  al  ordenador  que  sume  las  palabras  “gato” 
y  “ perro  ”,  te  dará  como  resultado  “ gatoperro  ”. 

Si,  por  el  contrario,  le  dices  que  sume  1  y  2  dará  como 
resultado  3.  Pero  si  le  dices  que  sume  las  “ palabras  ”  “2” 
y  “ 4 ”  te  proporcionará  un  resultado  de  24. 

( Recuerda ,  una  palabra  puede  ser  cualquier  carácter 
o  combinación  de  caracteres  que  se  tecleen 
en  el  teclado). 


La  toma  de  decisiones,  para  un  orde¬ 
nador,  tiene  que  ver  básicamente,  en  un 
ordenador,  con  la  comparación  de 
cosas;  por  lo  tanto,  dependiendo  de  los 
resultados  de  dicha  comparación,  el 
ordenador  irá  a  una  o  a  otra  parte  del 
programa.  En  el  ejemplo  expuesto  en 
último  lugar,  se  utilizó  la  forma  más 
común  de  toma  de  decisiones,  la  senten¬ 
cia  If...  Then. 

Esto  significa  “Si  la  comparación 
siguiente  resulta  verdadera,  entonces 
continúa  realizando  todo  lo  que  venga 
detrás  de  la  palabra  THEN;  si  la  com¬ 
paración  da  como  resultado  que  es 
falsa,  entonces  continúa  con  la  línea 
siguiente  del  programa".  Una  compara¬ 
ción  puede  realizarse  con  =,  ,  , 
o  =  (igual  a,  menor  que,  mayor  que, 
no  igual  a,  igual  a  o  mayor  que,  igual  a 
o  menor  que,  respectivamente). 

Por  lo  tanto,  en  el  ejemplo,  la  línea 
número  20  comprueba  si  LH  es  igual  a 
I.  Si  el  resultado  de  la  comparación  es 
positivo,  entonces  el  ordenador 
imprime  la  palabra  ESTO.  Si  LH 
resulta  que  no  es  igual  a  I,  entonces  el 
ordenador  automáticamente  se  dirige  a 
la  siguiente  linea,  para  continuar  con  el 
programa,  que  es  la  lina  30,  donde  tie¬ 
ne  lugar  otro  “test”.  Si  el  menú,  como 
respuesta  a  éste,  el  usuario  ha  introdu¬ 
cido  un  5,  en  lugar  de  1,  2  ó  3,  entonces 
el  ordenador  llevará  a  cabo  los  tres 
“test"  que  se  encuentran  seguidos,  vol¬ 
verá  de  nuevo  a  la  linea  10  y  comenzará 
otra  vez  el  programa  completo,  sin 
imprimir  ningún  mensaje  en  este  caso. 

Almacenamiento  y  recuperación 

El  almacenamiento  y  la  recuperación 
son  funciones  que  requieren  una  cierta 
habilidad  en  programación  compleja.  Si 
quieres  que  un  programa  te  permita 
seguir  la  pista,  además  de  facilitársela, 
de  todas  las  modificaciones  que  se  reali¬ 
cen  con  la  información,  utiliza  una  que 
ya  haya  sido  escrita  hasta  entender  la 
programación,  las  cintas  de  ficheros,  las 
entradas/salidas  de  disco,  etc.  Cuando 
consigas  esto,  podrás  escribir  tus  pro¬ 
pios  programas  o  modificar  otros. 
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Puedes  escribir  programas  que  con¬ 
tengan  mucha  información,  pero  puede 
resultar  difícil  modificar  dicha  informa¬ 
ción.  Si  únicamente  quieres  que  el  orde¬ 
nador  mantenga  una  lista,  entonces 
teclea  la  información  con  los  números 
de  linea  delante  de  cada  uno  de  los 
componentes  de  la  lista.  De  esta 
manera,  cuando  quieras  ir  a  algún 
punto  de  la  lista,  tendrás  que  cargar  el 
programa  y,  en  lugar  de  teclear  RUN, 
teclea  LIST  para  ver  el  programa.  Si 
quieres  cambiar  alguna  parte  de  la 
información  contenida,  entonces  carga 
el  programa,  modifica  las  líneas  que 
quieras  cambiar  y  vuelve  a  salvarlo. 

Si  lo  que  quieres  es  que  tu  ordenador 
imprima  lineas  individuales  sin  que  ten¬ 
gas  que  utilizar  una  rutina  de  búsqueda, 
puede  hacerlo  comenzando  cada  linea 
con  un  comando  Print.  Por  ejemplo: 

10  PRINT  “TIA  SARA  123  -  456  - 
7890” 

20  PRINT  “TIO  JESSIE  890  -  567  - 
1234" 

Probablemente  éste  sea  uno  de  los 
programas  más  rudimentarios  que  pue¬ 


den  utilizarse  para  mantener  un  listín 
telefónico,  pero  funcionará  y  es  muy 
fácil  de  escribir. 

Salida 


El  aspecto  final  de  cualquier  pro¬ 
grama  es  obtener  información  del  orde¬ 
nador  mediante  una  salida  a  la  pantalla 
o  a  la  impresora.  Puedes  indicar  al 
ordenador  que  sume  los  números 
(A  =  2  +  3)  y  lo  llevará  a  cabo  a  una 
velocidad  de  luz  y  te  devolverá  un 
READY  y  el  cursor  intermitente  que 
señala  que  ha  finalizado  la  suma.  Sin 
embargo,  si  no  le  indicas  que  imprima  la 
respuesta  (PRINT  A)  jamás  podrás  ver 
el  resultado  de  dicha  operación. 

El  comando  Print  es,  con  toda  pro¬ 
babilidad,  el  comando  que  se  utiliza  con 
más  frecuencia  en  Basic;  sin  él,  no 
tenemos  ninguna  forma  de  saber  qué  es 
lo  que  está  ocurriendo  dentro  del  orde¬ 
nador. 

Una  sentencia  Print  puede  tener 
varios  formatos.  PRINT  “xxx”  impri¬ 


mirá  en  la  pantalla  todo  lo  que  pongas 
dentro  de  las  comillas  (incluso  movi¬ 
mientos  de  cursor  o  determinados  sím¬ 
bolos  como  SHIFT  CLR).  Si  tecleas 
PRINT,  y  entonces  mantienes  pulsada 
la  tecla  de  mayúsculas  al  mismo  tiempo 
que  pulsas  la  tecla  CLR  /  HOME,  apa¬ 
recerá  un  corazón  invertido.  Añade  el 
signo  de  cerrar  comillas,  y  pulsa  la  tecla 
Return.  Si  has  llevado  a  cabo  todo  lo 
anterior  en  el  orden  correcto,  se  borrará 
la  pantalla. 

Otro  formato  del  comando  Print  es 
PRINT  xx,  donde  xx  es  el  nombre  de 
una  variable.  Esta  instrucción  impri¬ 
mirá  el  contenido  del  bolsillo  denomi¬ 
nado  xx  en  la  pantalla.  También  puedes 
utilizar  el  ordenador  como  si  fuera  una 
calculadora.  Por  ejemplo,  PRINT  3  +  4 
imprimirá  7  en  la  pantalla. 


Manten  la  moral 


Todos  los  problemas  de  programa¬ 
ción  pueden  dividirse  en  trozos  más 
pequeñas  y  dichos  trozos  pueden  rom¬ 


perse,  a  su  vez,  en  trozos  más  pequeños, 
hasta  que  puedas  hecer  corresponder  los 
comandos  que  tú  conoces  con  los  dife¬ 
rentes  trozos.  Según  se  van  haciendo  las 
partes  más  y  más  pequeñas,  encontrarás 
que  cada  vez  un  número  mayor  de  ellas 
contienen  palabras  Basic  que  llevan  a 
cabo  justamente  la  cosa  que  se  pretende 
hacer  con  esa  parte. 

Aprender  a  programar  es  una  expe¬ 
riencia  increíblemente  frustrante  para 
todo  el  mundo.  El  que,  en  un  principio, 
puedas  encontrar  más  mensajes  de  error 
que  respuestas,  no  significa  que  seas 
tonto.  No  hay  programador  vivo  que  no 
haya  pasado  el  mismo  trago. 

Sigue  leyendo  y  releyendo  los  manua¬ 
les,  toma  un  comando  en  un  determi¬ 
nado  momento  e  imagínate  cómo  tra¬ 
baja,  mira  los  programas  que  puedas 
sacar  de  las  revistas  y  pide  ayuda  a  los 
amigos  cuando  sea  necesario.  Si  falla 
todo  esto,  hay  miles  de  programas  que 
puedes  comprar  o  teclear  a  partir  de 
revistas.  La  mayoría  de  ellos,  suponen 
un  desafio.  ■ 


(Cuando  el  ordenador  delecta  la  palabra  Input, 
cesa  la  ejecución  del  programa  y 
espera  a  que  se  teclee 

la  correspondiente  información  y  que  sea  pulsada 
la  tecla  Return.  Entonces,  el  ordenador  coloca  lo  que 
se  haya  introducido  en  el  bolsillo  que  se  hubiera 
especificado  a  continuación,  prosigue  la  ejecución 
del  programa. 


Comandes  dei  MONITOR 
DE  CODIGO/ MAQUINA  del 
COMMODORE  16 


H  MONITOR  DE  CODIGO/MAQIIINA 
es  un  programa  incorporado  en  el  COMMODORE  16  que 
permite  escribir  con  facilidad  programas  en  código /máquina. 
En  este  utilitario  se  incluye  un  mini-ensamblador 
y  un  desensamblador. 


Introducción 


Los  programas  en  código/máquina 
preparados  mediante  el  MONITOR  de 
C/M  pueden  funcionar  por  sí  mismos,  o 
ser  utilizados  como  “subrutinas  rápi¬ 
das”  en  los  programas  BASIC,  ya  que  el 
MONITOR  de  C/M  tiene  la  capacidad 
de  coexistir  pacíficamente  con  el  BASIC. 

A  continuación  se  da  una  lista  resu¬ 
mida  de  los  comandos  del  MONITOR 
de  C/M. 

A  ASSEMBLE:  Ensambla  una  línea 
de  código  del  6S02. 

C  COMPARE:  Compara  dos  sec¬ 
ciones  de  memoria  e  informa  de  las 
diferencias. 

D  DISASSEMBLE:  Desensambla  una 
línea  de  código  del  6S02. 

F  FILL:  Rellena  lá  memoria  con  el 
patrón  especificado. 

G  GO:  Inicia  la  ejecución  en  la 
dirección  especificada. 

H  HUNT:  Rastrea  el  contenido  de 
ciertos  bytes  en  la  memoria. 

L  LOAD:  Carga  un  fichero  desde 
cinta  o  disco. 

M  MEMORY:  Exhibe  el  contenido 
de  la  memoria. 

R  REGISTERS:  Exhibe  el  conte¬ 
nido  de  los  registros  del  6S02. 

S  SAVE:  Salva  a  cinta  o  disco. 

T  TRANSFER:  Transfiere  un  códi¬ 
go  desde  una  a  otra  sección  de  la 
memoria. 

V  VERIFY:  Compara  la  memoria 
con  una  cinta  o  disco. 

X  EXIT:  Sale  del  MONITOR  de 

C/M. 

(punto):  Ensambla  una  línea  de 
código  del  6502. 

>  (mayor  que):  Modifica  la  memoria. 


;  (punto  y  coma):  Modifica  el  con¬ 
tenido  de  los  registros  del  6502. 

Utilización  del  MONITOR  de  C/M 

Introduzca  el  MONITOR  de  C/M 
escribiendo:  MONITOR. 

El  MONITOR  de  C/M  responde 
exhibiendo  los  registros  del  6502  y 
haciendo  parpadear  el  cursor.  El  cursor 
es  el  indicador  que  le  hace  saber  que  el 
MONITOR  de  C/M  está  esperando  sus 
comandos. 

Descripción  de  los  comandos 

COMANDO:  A  (ENSAMBLA). 

PROPOSITO:  Introducir  una  línea 
de  código  en  ensamblador. 

SINTAXIS:  A  <dirección>  <código 
de  operación>  <operando>. 

<Dirección>  es  un  número  hexadeci- 
mal  que  indica  la  posición  de  memoria 
en  donde  se  debe  colocar  el  código  de 
operación. 

<Código  de  operación>  es  un  mnemó- 
nico  del  lenguaje  ensamblador  standard 
de  MOS  TECHNOLOGY,  por  ejemplo 
LDA,  STX,  ROR,  etc. 

<Operando>  cuando  se  requiere, 
puede  ser  uno  de  los  modos  de  direcciona- 
miento  autorizados.  (En  los  modos  de 
página  cero,  se  requiere  un  número 
hexadecimal  de  dos  dígitos  cuyo  valor 
debe  ser  inferior  a  $100.  En  los  restan¬ 
tes  direccionamientos,  se  requiere  un  nú¬ 
mero  hexadecimal  de  4  dígitos). 

Se  utiliza  la  tecla  RETURN  para 
indicar  el  final  de  la  línea  de  ensam¬ 
blado.  Si  hay  algún  error  en  ella,  apare¬ 
cerá  un  interrogante  indicándolo  y  el 
cursor  se  moverá  a  la  línea  siguiente.  Se 
puede  utilizar  el  editor  de  pantalla  para 


corregir  los  errores  en  una  línea. 

Tras  el  ensamblado  correcto  de  una 
línea  de  código,  el  ensamblador  imprime 
un  mensaje  conteniendo  la  siguiente 
posición  de  memoria  autorizada  para 
contener  una  instrucción,  por  lo  cual  A 
y  la  dirección  no  deben  teclearse  más 
que  una  vez  cuando  se  escriban  progra¬ 
mas  en  código/máquina  en  el  C-16. 
Ejemplo: 

.A  1200  LDX  #$00 
.A  1202 

NOTA:  Un  punto  (.)  es  equivalente  al 
comando  ASSEMBLE.  Ejemplo:* 

.2000  LDA  #$23 

COMANDO:  C  (COMPARA). 

PROPOSITO:  Compara  dos  áreas  de 
memoria. 

SINTAXIS:  C  <dirección  IXdirec- 
ción  2>  <dirección  3>. 

<dirección  1>  es  un  número  hexade¬ 
cimal  que  indica  la  dirección  inicial  del 
área  de  memoria  a  comparar. 

<dirección  2>  es  un  número  hexade¬ 
cimal  que  indica  la  dirección  final  del 
área  de  memoria  a  comparar. 

<dirección  3>  es  un  número  hexade¬ 
cimal  que  indica  la  dirección  de  inicio 
de  la  otra  área  de  memoria  con  la  que  se 
hace  la  comparación. 

Si  las  dos  áreas  de  memoria  son  la 
misma,  el  MONITOR  de  C/M  imprime 
un  RETURN,  indicando  que  la  segunda 
área  de  memoria  es  la  misma  que  la 
primera.  Se  imprimen  en  pantalla  las 
direcciones  de  todos  los  bytes  de  las  dos 
áreas  que  no  se  corresponden. 

COMANDO.  D  (DESENSAMBLA). 

PROPOSITO:  Desensambla  el  código 
máquina  en  mnemónicos  y  operandos. 

SINTAXIS:  D[<dirccción>H<direc- 
ción  2>] 

<dirección>  es  un  número  hexade¬ 
cimal  indicando  la  dirección  en  donde 
debe  empezar  el  desensamblado. 

<dirección  2>  es  una  dirección  en 
hexadecimal  opcional  que  indica  el 
final  del  desensamblado. 

El  formato  del  desensamblado  es  lige¬ 
ramente  distinto  al  formato  del  ensam¬ 
blado.  La  diferencia  consiste  en  que  el 
primer  carácter  del  desensamblado  es 
un  punto  en  vez  de  una  A  (para  mayor 
facilidad  de  lectura)  y  se  lista  también  el 
valor  hexadecimal  del  código. 

Un  listado  de  desensamblado  puede 
modificarse  mediante  el  editor  de  panta¬ 
lla.  Haga  algunos  cambios  en  los  mne¬ 
mónicos  o  en  los  operandos  de  la  panta¬ 
lla  y,  a  continuación,  pulse  RETURN. 
De  este  modo  se  introduce  la  línea  y  se 
llama  al  ensamblador  para  nuevas 
modificaciones. 

Un  desensamblado  puede  estar  pagi¬ 
nado.  Si  escribe  una  D  hará  que  sean 
desensamblados  en  la  pantalla  los 
siguientes  20  bytes  de  código.  Ejemplo: 
D  3000  3004 

.  3000  A9  00  LDA  #$00 

.  3002  FF  ??? 

.  3003  DO  2B  BNE  $3030 
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COMANDO:  F  (LLENAR) 
PROPOSITO:  Rellenar  una  serie  de 
posiciones  con  un  byte  especificado. 

SINTAXIS:  F  <dirección  1>  direc¬ 
ción  2>  <byte>. 

<dirección  I>  es  la  primera  posición 
a  rellenar  con  <byte>. 

<dirección  2>  es  la  última  posición  a 
rellenar  con  <byte>. 

<byte>  es  un  número  hexadecimal 
de  uno  o  dos  dígitos. 

Este  comando  es  útil  para  inicializar 
estructuras  de  datos  o  cualquier  otra 
área  RAM.  Ejemplo: 

F  0400  0518  EA 

Rellena  las  posiciones  de  memoria 
S0400-S0518  con  SEA  (instrucción 
NOP.) 

COMANDO:  G  (EJECUTAR) 
PROPOSITO:  Inicia  la  ejecución  de 
un  programa  en  la  dirección  especificada. 
SINTAXIS:  G[<dirección>], 
<dirección>  es  un  argumento  opcio¬ 
nal  que  especifica  el  nuevo  valor  del  con¬ 
tador  de  programa  y  la  dirección  en 
donde  se  empezará  la  ejecución.  Cuando 
se  omite,  dicha  ejecución  empieza  en  el 
PC  actual.  (El  PC  actual  puede  ser 
visualizado  mediante  el  comando  R.) 

El  comando  GO  restaura  todos  los 
registros  (visualizables  mediante  el  co¬ 
mando  R)  e  inicia  la  ejecución  en  la 
dirección  de  inicio  especificada.  Se 
recomienda  precaución  al  utilizarlo. 
Para  volver  al  MONITOR  de  C/M  tras 
ejecutar  un  programa  en  código/má- 
quina,  utilice  la  instrucción  BRK. 
Ejemplo: 

G  140C 

La  ejecución  empieza  en  la  posición 
SI40C. 

COMANDO:  H  (CAZAR). 
PROPOSITO:  Rastrear  el  contenido 
de  una  serie  de  bytes  a  través  de  la 
memoria,  dentro  de  un  rango  especifi¬ 
cado. 

SINTAXIS:  H<dirección  1>  direc¬ 
ción  2>  <datos>. 

dirección  l>  es  la  dirección  de  ini¬ 
cio  del  procedimiento  de  rastreo. 

dirección  2>  es  la  dirección  final 
del  procedimiento  de  rastreo. 

dalos>  es  una  serie  de  datos  a  bus¬ 
car.  Pueden  estar  en  hexadecimal  o  en 
forma  de  cadena  ASCII.  ASCII  se  espe¬ 
cifica  procediendo  el  primer  carácter 
por  una  comilla,  por  ejemplo  ‘CADENA. 
Los  datos  pueden  ser  un  argumento 
simple  o  múltiple.  Si  es  múltiple  y  en 
hexadecimal,  cada  número  debe  ir  sepa¬ 
rado  por  un  espacio.  Ejemplo: 

H  C000  FFFF  ‘READ 
Busca  una  cadena  ASCII 
leyendo  desde  C000  a  FFFF. 

H  A 000  A101  A9  FF  4C 
Busca  los  datos  SA9,  $FF, 

$4C,  desde  A 100  hasta  A 101. 
COMANDO:  L  (CARGA). 
PROPOSITO:  Carga  un  fichero  desde 
cassette  o  disco. 

SINTAXIS:  L  <“nombre  fichero’’> , 
<dispositivo>. 


<nombre  fichero>  es  cualquier  nom¬ 
bre  de  fichero  autorizado  en  el  C-16, 
entre  comillas. 

<dispositivo>  es  un  número  hexade¬ 
cimal  que  indica  el  dispositivo  desde 
donde  se  realiza  la  carga.  I  es  cassette,  8 
es  disco  (o  9,  A,  etc.). 

El  comando  LOAD  hace  que  sea  car¬ 
gado  un  fichero  en  memoria.  La  direc¬ 
ción  inicial  está  contenida  en  los  prime¬ 
ros  dos  bytes  del  fichero  (un  fichero  de 
programa).  En  otras  palabras,  el  co¬ 
mando  LOAD  siempre  carga  un  fichero 
en  el  mismo  lugar  de  donde  se  ha  sal¬ 
vado.  Esto  es  muy  importante  traba¬ 
jando  en  código  máquina,  ya  que  hay 
muy  pocos  programas  que  sean  total¬ 
mente  reubicables.  El  fichero  se  carga 
en  memoria  hasta  que  se  encuentra  el 
fin  de  fichero  (EOF).  Ejemplo: 

L“PANTALLA”,1 

Lee  un  fichero  desde  cassette. 

L‘‘TANQUE”,8 

Lee  un  fichero  desde  disco. 

COMANDO:  M  (EXAMINAR  ME¬ 
MORIA). 

PROPOSITO:  Representa  la  memo¬ 
ria  como  un  vaciado  hexadecimal  y 
ASCII,  dentro  del  rango  especificado. 

SINTAXIS:  M[<dirección  1  >]  [<di- 
rección  2>] 

[<dirección  1>]  es  la  primera  direc¬ 
ción  del  vaciado  de  memoria.  Opcional. 
Si  se  omite,  se  representa  una  página.  El 
primer  byte  es  la  última  dirección 
especificada. 

[<dirección  2>]  es  la  última  dirección 
del  vaciado  de  memoria.  Opcional.  Si  se 
omite,  se  representa  una  página.  El  pri¬ 
mer  byte  es  el  dato  de  [<dirección  1>], 

La  memoria  se  representa  en  el  for¬ 
mato  siguiente: 

<0310  8B  8C  42  CE  OE  CE  4C  F4:..BN.NLI 

El  contenido  de  la  memoria  puede 
modificarse  mediante  el  editor  de  panta¬ 
lla.  Mueva  el  cursor  hasta  el  dato  a 
modificar,  haga  la  corrección  deseada  y 
pulse  RETURN.  Si  se  indica  una  posi¬ 
ción  RAM  errónea  o  si  se  hace  un 
intento  de  modificar  la  ROM,  se  repre¬ 
senta  un  indicador  de  error  (?). 

Un  vaciado  en  ASCII  de  los  datos  se 
representa  en  INVERSO  (contraria¬ 
mente  al  vaciado  de  otros  datos  repre¬ 
sentados  en  la  pantalla)  a  la  derecha  del 
dato  hexadecimal.  Cuando  se  encuentra 
un  carácter  no  imprimible,  se  representa 
como  un  punto  inverso  (.). 

Igual  que  con  el  comando  Disassem- 
ble,  puede  Vd.  hacer  paginaciones.  Esto 
se  consigue  escribiendo  M  y  RETURN. 
Ejemplo:  M  1C00 

<IC00  41  00  AA  AA  00  98  56  45  :A  •♦..VE 
<1C08  41  00  AA  AA  00  98  56  45  :A.**..VE 
<1C10  41  00  AA  AA  00  98  56  45  :A .**..VE 
<  1 C 1 8  41  00  AA  AA  00  98  56  45  :A.**..VE 
<1C20  41  00  AA  AA  00  98  56  45  A. ••..VE 
<IC28  41  00  AA  AA  00  98  56  45  :A.' "..VE 
<1C30  41  00  AA  AA00  98  56  45  A. ••..VE 
<1C38  41  00  AA  AA  00  98  56  45  :A.**..VE 
<1C4041  00  A  A  A  A  00  98  56  45  :A.**..VE 
<1C48  41  00  AA  AA  00  98  56  45  :A.** ..VE 


<1C50  41  00  AA  AA 
<1C58  41  00  AA  AA  00  98  56  45  :A.*WE 
COMANDO:  >  (SIGNO  MAYOR 
QUE) 

PROPOSITO:  Puede  utilizarse  para 
definir  de  I  a  8  posiciones  de  memoria 
simultáneamente. 

SINTAXIS:  >dirección  byte  de  datos 
1  byte  de  datos  2...8> 
dirección:  es  la  primera  dirección  de 
memoria  a  definir. 

byte  de  datos  I :  Datos  a  introducir  en 
la  dirección. 

<byte  de  datos  2-byte  de  datos  8> 
son  los  datos  a  colocar  en  las  sucesivas 
posiciones  de  memoria  a  continuación 
de  la  primera.  Opcional.  Ejemplo: 

>200  08 

Coloca  un  08  en  la  posición  2000. 

>  3000  23  45  65 
Coloca  un  23  en  la  posición  3000, 
un  45  en  la  3001  y  un  65  en  la  3002. 
COMANDO:  R  (EXAMINAR  RE¬ 
GISTROS). 

PROPOSITO:  Muestra  los  registros 
más  importantes  del  6502:  el  contador 
de  programa,  el  registro  de  estado,  el 
acumulador,  los  registros  Indices  X  e  Y  y 
el  puntero  del  STACK. 

SINTAXIS:  R 
Ejemplo: 

R 

PC  SR  AC  XR  YR  SP 

1002  01  02  03  04  F6 
NOTA:  El ;  (punto  y  coma)  puede  uti¬ 
lizarse  para  modificar  el  contenido  de  los 
registros  del  mismo  modo  que  se  utiliza  > 
para  modificar  los  registros  de  memoria. 
COMANDO:  S  (SALVAR) 
PROPOSITO:  Salva  el  contenido  de 
la  memoria  en  una  cinta  o  disco. 

SINTAXIS:  S  “nombre  fichero”  , 
<dispositivo>,  <dirección  1>,  direc¬ 
ción  2>. 

<“nombre  fichero”>  es  cualquier  nom¬ 
bre  de  fichero  autorizado  en  el  C-16.  Pa¬ 
ra  salvar  datos,  se  debe  incluir  el  nom¬ 
bre  de  fichero  entre  comillas. 

<dispositivo>  El  cassette  y  el  disco  son 
los  dos  dispositivos  posibles.  Para  salvar 
en  cassette,  utilice  el  dispositivo  I .  El  nú¬ 
mero  de  dispositivo  de  la  unidad  de  disco 
habitual  en  el  C-16  es  el  8.  De  todos  mo¬ 
dos,  éste  puede  variar  (por  ejemplo,  al  uti¬ 
lizar  más  de  una  unidad  de  disco).  Vea  su 
MANUAL  DE  LA  UNIDAD  DE 
DISCOS  del  C-16. 

dirección  1  >  es  la  dirección  inicial  de 
la  memoria  a  salvar. 

dirección  2>  es  la  dirección  final  de 
la  memoria  a  salvar  + 1 .  Se  salvan  todos 
los  datos  hasta  aquí,  pero  sin  incluir  el  by¬ 
te  de  datos  de  esta  dirección. 
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El  fichero  creado  por  este  comando  es 
un  fichero  de  programa.  Los  primeros  dos 
bytes  contienen  la  <dirección  I  >  de  los 
dalos.  Este  fichero  puede  ser  vuelto  a  lla¬ 
mar  mediante  el  comando  L.  Ejemplo: 

S“JUEGO”, 8,0400, 0C00 
Salva  la  memoria  desde  $0400  hasta 
S0BFF  pasándola  a  disco. 

COMANDO:  T  (TRANSFERIR). 
PROPOSITO:  Transfiere  segmentos 
de  memoria  desde  una  a  otra  área  de 
memoria. 

SINTAXIS:  T<dirección  1>  direc¬ 
ción  2>  dirección  3>. 

dirección  1>  es  la  dirección  inicial 


de  los  datos  a  mover. 

dirección  2>  es  la  dirección  final 
de  los  datos  a  mover. 

dirección  3>  es  la  dirección  inicial 
de  la  nueva  posición  (donde  irán  los 
datos). 

Los  datos  pueden  moverse  desde  una 
zona  baja  de  la  memoria  a  una  alta  o 
viceversa.  Se  pueden  mover  segmentos 
adicionales  de  memoria  de  cualquier 
longitud  cualquier  número  de  bytes 
hacia  adelante  o  hacia  atrás. 

Nota:  El  valor  de  dirección  3>  no 
debe  estar  entre  dirección  1>  y 
dirección  2>. 

Ejemplo: 

T  1401  1600  1400 

Desplaza  los  datos  a  partir  de  $1401, 
incluyendo  $1600,  un  byte  hacia  abajo 
de  la  memoria. 

COMANDO:  V  (VERIFICAR). 

PROPOSITO:  Verificar  un  fichero  en 
cassette  o  disco  con  el  contenido  de  la 
memoria. 

SINTAXIS:  V  <“nombre  fichero”>. 


dispositivo>. 

<nombre  fichero>  es  cualquier 
nombre  de  fichero  autorizado  en  el 
C-16. 

<dispositivo>  es  un  número  hexade- 
cimal  indicando  en  qué  dispositivo  se 
encuentra  el  fichero.  El  cassette  es  1  ó 
01,  el  disco  es  8  ó  08,  09,  etc. 

El  comando  Verify  compara  un  fichero 
con  el  contenido  de  la  memoria.  El  C-16 
responde  VERIFYING.  Si  se  encuentra 
un  error,  se  añade  la  palabra  ERROR 
Si  el  fichero  es  verificado  correctamente, 
reaparece  el  cursor  parpadeante. 

EJEMPLO:  V“TRABAJO",8 

COMANDO:  X  (SALIDA  AL  BASIC) 

PROPOSITO:  Vuelve  al  BASIC 

SINTAXIS:  X. 

Cuando  se  da  el  comando  X,  el 
puntero  del  STACK  del  microprocesador 
se  ajusta  al  valor  actual  (véase  el 
comando  R).  Si  se  modifica  éste  de 
cualquier  modo,  utilice  el  comando 
BASIC  CLR  para  restaurar  los  punteros 
tras  volver  al  BASIC.  ■ 


Por  Pe  re  MASA  TS 

El  intérprete 

de  BASIC  del  COMMODORE  16 


El  nuevo  ordenador  doméstico  COMMODORE  16 
incorpora  nuevas  instrucciones  y  comandos  de  BA  SIC, 
en  este  artículo  vamos  a  analizarlos 
pues  constituyen  la  característica  más  interesante  de  este  equipo. 


El  intérprete  de  BASIC  de  COM¬ 
MODORE  16  incorpora  52  co¬ 
mandos  e  instrucciones  que  no 
existen  en  otras  versiones  de  BASIC 
¡mplemcntadas  en  otros  equipos  de 
COMMODORE,  por  ejemplo  en  el 
COMMODORE  64.  Estas  nuevas  ins¬ 


trucciones  son: 

AUTO  BACKUP 

COLLECT  COPY 

DELETE  DIRECTORY 

DLOAD  DSAVE 

HEADER  HELP 

KEY  RENAME 

RENUMBER  SCRATCH 

BOX  CHAR 

CIRCLE  COLOR 

DO  LOOP 

WHILE  UNTIL 

EXIT  DRAW 

GETKEY  GRAPHIC 

GRAPHIC  CLR  IF  THEN  ELSE 
LOCATE  MONITOR 

PAINT  PRINT  US1NG 

PUDEF  RESTORE 

RESUME  SCALE 

SCNCLR  SOUND 

SSHAPE/GSHAPE  TRAP 
TRON  TROFF 

DEC  INSTR 

JOY  RCLR 

RDOT  RGR 


RLUM  SGN 

ERR$(N)  HEX$ 

VOL 

Además  RESTORE  y  MIDS  funcio¬ 
nan  de  manera  algo  diferente. 

Esta  ampliación  del  lenguaje  se  puede 
analizar  reuniendo  los  nuevos  coman¬ 
dos  e  instrucciones  en  cuatro  grandes 
grupos: 

AYUDAS  A  LA  PROGRAMACION. 
NUEVAS  INSTRUCCIONES  DE 

BASIC  PROPIAMENTE  DICHO. 
INSTRUCCIONES  DE  ALTA 

RESOLUCION  Y  SONIDO. 
MANEJO  DE  DISCO. 

Veamos  ahora  estas  instrucciones: 

Ayudas  a  la  programación 

Facilitan  la  entrada  de  programas  en 
BASIC  o  en  código/máquina.  Es  habi¬ 
tual  que  un  programa  nunca  funcione 
perfectamente  a  la  primera  por  dos 
tipos  diferentes  de  errores:  los  de 
tecleado  de  las  instrucciones  (el  típico 
SINTAX  ERROR)  y  los  de  concepción 
del  propio  programa  (el  tecleado  es 
correcto,  pero  una  fórmula  está  mal 
planteada  para  realizar  un  cálculo,  por 
ejemplo),  en  ambos  casos  en  este  grupo 
de  instrucciones  se  incluyen  facilidades 
a  la  hora  de  depurar  un  programa 
(librarlo  de  sus  errores). 
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Las  instrucciones  de  este  grupo  son: 

AUTO. — Da  el  número  de  la  línea 
siguiente  cuando  entramos  un  pro¬ 
grama,  de  manera  que  no  es  necesario 
teclearlo  cada  vez. 

DELETE. — Permite  borrar  una  sec¬ 
ción  del  programa  entre  dos  números  de 
linea.  Aunque  el  uso  de  este  comando 
de  manera  excesivamente  alegre  suele 
producir  frecuentes  disgustos,  su  utili¬ 
dad  es  innegable. 

HELP  — El  COMMODORE  16  posee 
un  elevado  espíritu  de  colaboración  y 
después  de  darnos  un  SINTAX  ERROR 
si  tecleamos  HELP  nos  lista  en  la  panta¬ 
lla  la  línea  donde  existe  el  error  y  nos 
indica  la  instrucción  errónea  de  manera 
intermitente. 

KEY. — Mediante  este  comando  se 
pueden  asignar  a  las  ocho  teclas  de  fun¬ 
ción  secuencias  de  caracteres  de  uso  fre¬ 
cuente.  Por  ejemplo,  cuando  se  pone  en 
marcha  el  equipo  si  pulsamos  la  tecla 
F8,  en  la  pantalla  aparece  la  palabra 
HELP  y  la  máquina  sola  pulsa 
RETURN. 

RENUMBER.— Es  frecuente  que  du¬ 
rante  la  etapa  de  depuración  de  un  pro¬ 
grama  sea  necesario  añadir  entre  dos 
lineas  más  de  las  que  caben  entre  ellas. 
Con  RENUMBER  se  pueden  cambiar 
los  números  de  linea  de  programa  para 
“hacer  sitio”.  De  la  misma  manera 
cuando  el  programa  funciona  perfecta¬ 
mente  se  pueden  numerar  las  líneas  de 
una  en  una. 

TRON/TROFF.— Se  puede  ejecutar 
un  programa  — mediante  estos  coman¬ 
dos —  de  manera  que  se  nos  indique  en 
la  pantalla  qué  linea  se  está  ejecutando 
en  cada  momento  para  poder  detectar  el 
sitio  donde  se  producen  los  problemas. 

MONITOR.— Mediante  este  comando 
el  COMMODORE  16  empieza  a  traba- 


jar  con  lo  que  se  conoce  como  MONI¬ 
TOR  DE  CODIGO/MAQUINA.  Este 
es  un  programa  incluido  en  la  ROM  del 
equipo  que  facilita  la  entrada  de  peque¬ 
ñas  rutinas  en  código/máquina  y  su 
correspondiente  depuración.  Una  des¬ 
cripción  detallada  de  las  posibilidades 
del  MONITOR  se  dará  en  un  artículo 
aparte. 

Nuevas  instrucciones  de  BASIC 
propiamente  dicho 

En  este  grupo  se  incluyen  aquellas 
instrucciones  que  enriquecen  el  lenguaje 
BASIC  propiamente  dicho,  es  decir, 
aquellas  que  intervienen  directamente 
en  la  ejecución  de  los  programas. 

DO-LOOP- WHILE-UNTIL-EXIT. — 
Estas  instrucciones  forman  un  conjunto 
muy  interesante  que  facilita  la  confec¬ 
ción  de  bucles  de  ejecución  condicional. 
Las  dos  primeras  (DO  y  LOOP)  señalan 
el  principio  y  final  del  bucle,  respecti¬ 
vamente.  Y  las  tres  últimas  manejan  las 
condiciones  de  salida  de  este  bucle.  Sus 
traducciones  al  castellano  pueden  escla¬ 
recer  algo  su  sentido: 

DO=HACER  (marca  el  inicio  del 
bucle). 

LOOP=BUCLE  (marca  el  final  del 
bucle). 

WHILE=MI ENTRAS  (MIENTRAS 
se  cumpla  la  condición,  se  ejecutará  el 
bucle). 

UNTIL=HASTA  (HASTA  que  se 
cumpla  la  condición,  se  ejecutará  el 
bucle). 

EXIT=SALIDA  (si  se  llega  a  ejecutar 
EXIT,  la  ejecución  del  bucle  se  inte¬ 
rrumpe). 

Tanto  si  se  interrumpe  la  ejecución 
del  bucle  como  si  se  sale  de  él,  lo  que 
ocurre  es  que  la  ejecución  del  programa 
pasa  a  la  instrucción  que  sigue  a  LOOP. 
Para  aclarar  ideas  veamos  unos  ejem- 

10  DO  UNTIL  A  29 
20  A=A+1 
30  PR1NT  A 
40  LOOP 

50  PRINT  A+50 

En  este  caso  la  secuencia  de  lineas 
10 — 40  se  ejecutará  hasta  el  momento 
que  A  tome  un  valor  superior  a  29, 
entonces  se  saldrá  del  bucle  y  se  pasará 
a  ejecutar  la  linea  50. 

51  tenemos: 

10  DO  WHILE  A  30 
20  A=A+I 
30  PRINT  A 
40  LOOP 
50  PRINT  A+50 

Se  ejecutará  el  bucle  MIENTRAS  A 
sea  inferior  a  30,  en  cuanto  deje  de 
cumplirse  esta  condición  se  transferirá 
la  ejecución  a  la  linea  50. 

Para  EXIT  podemos  hacer: 

10  DO 
20  A=A+ 1 

30  IF  A=30  THEN  EXIT 
40  LOOP 
50  PRINT  A+50 


En  cuanto  se  cumpla  la  condición  A=30 
en  la  línea  30,  se  ejecutará  la  línea  50. 

GETKEY. — Esta  instrucción  permite 
entrar  caracteres  desde  el  teclado  de  uno 
en  uno: 

10  GETKEY  A$ 

Es  exactamente  igual  a: 

10  GET  A$  :  IF  A$=“”  THEN  10 

Tanto  en  una  versión  como  en  otra  el 
programa  esperará  a  que  se  pulse  una 
tecla,  en  cuanto  se  realice  esta  acción  AS 
contendrá,  en  forma  de  cadena  de  un 
solo  carácter,  la  tecla  pulsada. 

IF...THEN...  ELSE... — En  el  COM- 
MODORE  16  se  ha  ampliado  la  ins¬ 
trucción  estándar  de  BASIC  IF... 
THEN  y  se  le  ha  incorporado  la  opción 
ELSE.  Normalmente,  SI  (IF)  se  cumple 
la  condición  descrita  entre  IF  y  THEN 
ENTONCES  (THEN)  se  ejecuta  la  ins¬ 
trucción  que  sigue  a  THEN  (o  serie  de 
instrucciones  hasta  el  fin  de  la  linea).  En 
caso  de  no  cumplirse  la  condición  el 
programa  sigue  ejecutándose  a  partir  de 
la  línea  siguiente.  La  versión  del 
COMMODORE  16  es  igual  por  lo  que 
se  refiere  a  IF...  THEN...  si  la  condición 
se  cumple.  Lo  que  ocurre  es  que  si  no  se 
cumple  se  ejecutan  las  instrucciones  que 
siguen  a  ELSE. 

PRINT  USING  y  PUDEF.— PRINT 
USING  es  una  ampliación  de  PRINT, 
su  utilización  es  primordialmente  para 
controlar  de  forma  eficaz  el  formato  de 
los  datos  de  salida  de  un  programa, 
tanto  en  pantalla  como  en  la  impresora. 
En  aplicaciones  de  gestión  es  muy 
molesto  que  las  columnas  de  números 
que  entrega  un  programa  como  resulta¬ 
dos  no  estén  alineadas  en  sentido  verti¬ 
cal  (las  unidades  exactamente  debajo  de 
las  unidades,  las  decenas  de  las  decenas, 
etc....),  también  mediante  PRINT  USING 
se  pueden  truncar  los  números  a  un 
número  determinado  de  decimales,  eli¬ 
minar,  sustituir  o  incorporar  ceros  no 
significativos,  incorporar  el  signo,  etc. 
PUDEF  complementa  a  PRINT  USING 
permitiendo  — por  ejemplo —  sustituir 
el  punto  decimal  anglosajón  por  la 
coma  utilizada  en  nuestro  país.  PRINT 
USING  y  PUDEF  ahorran  al  progra¬ 
mador  mucho  trabajo  de  escritura  de 
subrutinas  y  simplifican  los  programas. 

RESTORE.— Esta  instrucción  fun¬ 
ciona  esencialmente  igual  a  otras  ver¬ 
siones  de  BASIC,  la  única  diferencia  es 
que  se  puede  hacer  que  el  puntero  de  los 
DATAS  se  restablezca  en  un  número  de 
línea  determinado,  asi  es  posible  leer 
(READ)  una  serie  de  DATAS  situados 
al  final  del  conjunto  sin  tener  que  leer 
los  primeros.  O  dicho  de  otra  manera: 
podemos  escribir  los  DATAS  en  nues¬ 
tro  programa  en  el  orden  que  nos  sea 
más  conveniente,  mediante  RESTORE 
XXXXX  podemos  leerlos  como  queramos. 

TRAP  y  RESUME. — Mediante  estas 
dos  instrucciones  de  BASIC  es  posible 
que  el  programador  tenga  un  control 
eficaz  de  su  programa  si  se  produce  un 
error.  Así  es  posible  que  el  programa 


cialmente  escrita  y  designada  en  la  ins¬ 
trucción  TRAP. 

Para  hacer  posible  el  tratamiento  de 
los  errores  existen  tres  variables  que  el 
ordenador  utiliza  para  transferir  al  pro¬ 
grama  la  información  necesaria  sobre  el 
lugar  del  error  y  su  naturaleza,  estas 
variables  son:  EL,  da  el  número  de  la 
línea  donde  se  ha  detectado  el  error;  ER, 
es  el  número  del  error  y  ERR$,  es  una 
matriz  que  contiene  los  mensajes  de 
error.  Así  PRINT  ERRS(ER)  dará  el 
error  producido  y  en  función  de  su  con¬ 
tenido  el  programa  realizará  una  acción. 
Podríamos  decir  que  mediante  TRAP 
XXXXX  se  llama  a  una  subrutina  que 
empieza  en  la  línea  XXXXX  y  que  se 
ejecutará  cada  vez  que  se  produzca  un 
error,  en  vez  de  utilizar  RETURN  al 
final  de  esta  subrutina  se  emplea 
RESUME.  RESUME  sin  más  intentará 
ejecutar  de  nuevo  la  línea  donde  se  ha 
producido  el  error,  RESUME  NEXT 
ejecuta  la  linea  siguiente  a  la  que  pro¬ 
dujo  el  error  y  RESUME  YYYYY 
pasará  el  control  del  programa  a  la  linea 
YYYYY. 

Funciones  numéricas  y  de  manejo  de 
cadenas. 

JOY. — Esta  función  nos  entrega  la 
posición  de  las  palancas  de  juegos 
(JOYSTICKS). 

SGN  — Si  queremos  saber  el  signo  de 
la  cantidad  almacenada  en  una  variable, 
SGN(X)  nos  entrega  el  valor  de  este  signo 
sin  necesidad  de  manejar  el  número. 

DEC  y  HEXS. — Si  tenemos  un 
número  hexadecimal  en  la  cadena  alfa- 
numérica  X$  y  hacemos  X=DEC(X$), 
en  X  tendremos  el  equivalente  decimal 
de  este  número.  HEXS  efectúa  la  opera¬ 
ción  contraria:  convierte  un  número  en 
base  10  a  otro  en  hexadecimal. 

MIDS. — Esta  función  de  manejo  de 
variables  de  cadena  en  el  COMMO¬ 
DORE  16  tiene  una  utilización  que  no 
existe  en  otras  versiones  de  BASIC.  La 
diferencia  consiste  en  que  MIDS  puede 
estar  en  la  parte  izquierda  del  signo 
“=”,  es  decir,  se  puede  “meter"  en  una 
cadena,  otra  de  menor  longitud  en  las 
posiciones  especificadas  por  los  pará¬ 
metros  de  esta  función. 

INSTR. — Se  utiliza  para  saber  si  una 
cadena  forma  parte  de  otra,  en  caso 
afirmativo  esta  función  entrega  el 
número  de  carácter  donde  empieza  la 
primera  dentro  de  la  segunda. 

El  mes  próximo  seguiremos  este  aná¬ 
lisis  del  BASIC  del  COMMODORE  16 
viendo  el  capitulo  de  instrucciones  grá¬ 
ficas  y  los  comandos  de  disco. 
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CARTA  BLANCA 

manera  incondicional,  cualquiera  que  “marcianitos”  son  más  de  ocho,  si  bien 
fuera  la  tecla  pulsada.  Utilizando  las  la  mayoría  son  iguales, 
abreviaturas  del  BASIC,  se  puede  afta-  — Estoy  haciendo  un  programa  de 
dir  esta  linea  (sin  el  IF)  a  la  1 148,  siendo  Geometría  que  pienso  mandarles  en 

el  resultado  obtenido,  el  mismo.  cuanto  lo  acabe,  pero  como  no  tengo 

Para  colmo,  también  cometí  un  fallo  impresora  se  me  hace  imposible  man- 
mecanográfico,  al  enumerar  las  líneas  a  darles  el  listado  que  piden.  ¿Es  necesa- 
destruir  para  los  que  ya  tenían  grabado  rio  mandarlo  o  basta  sólo  con  el  cassette? 
el  programa.  Donde  puse  1 152  debe  — ¿Cómo  se  consiguen  los  dibujos  o 
poner  1 155,  pues  la  linea  1 152  es  creada  rayas  en  la  presentación  de  programas 
en  la  modificación  y,  por  tanto,  necesa-  mientras  se  cargan?  De  ser  muy  compli¬ 
ca-  cado,  creo  que  podrían  dedicar  un  artí- 

Mariano  de  Blas  Gracia  culo  al  respecto,  opino  que  sería  intere- 

C/  Trabau,  61  -  ¡t-2.‘  sanie. 
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c— - —p.  Ante  todo  mis  felicita-  30008  San  Sebastián 

c'ones  porque  creo  que  —La  secuencia  SHIFT-RE  TVRN  tiene 
/  \  hacen  una  revista  muy  el  mismo  efecto  que  RETURN.  sólo  que 

- — - — I  lograda  y  que  nos  es  no  se  ejecutan  las  órdenes. 

muy  útil.  — Son  ocho.  Que  en  un  juego  aparezca 

Les  escribo  esta  carta  porque  tengo  un  "marcianito"  no  quiere  decir  que  sea 
una  serie  de  dudas  que  les  quisiera  con-  un  sprite,  puede  ser  un  gráfico  hecho  con 
su'tar:  caracteres  personalizados  que  se  parezca 

—¿Para  qué  sirve  la  secuencia  SHIFT-  mucho  a  un  sprite. 

RETURN?  — Si  no  tienes  impresora  no  es  necesa- 

— ¿Cuántos  sprites  es  posible  utilizar  rio  que  mandes  un  listado,  lo  que  si  que  es 
a  la  vez?  En  el  manual  dice  que  son  imprescindible  es  la  cinta  cassette  o  el 
ocho,  pero  he  visto  juegos  en  los  que  los  disco. 


w! 


PROCESADOR  DE  TEXTOS 

Con  agrado  he  visto 
publicada  mi  colabo- 
/  \  ración  en  el  n°  13 

- - _j  (marzo-85)  “Modifica¬ 
ciones  en  el  procesador  de  textos  para 
C-64”,  pero  por  desgracia,  debido  a  un 
error,  envié  una  versión  que  no  era  la 
definitiva,  de  manera  que  el  funciona¬ 
miento  no  es  correcto.  El  problema  se 
solventa  modificando  la  línea  1149  de 
forma  que  quede  asi: 

1149  IF  Q$  =  “C"  THEN  Nl$  =  LEFTS 
(Nl$,  I6):GOTO  1162 
Esta  línea  limita  el  nombre  del  fichero 
a  16  caracteres  y  salta  a  la  apertura  y 
lectura  del  fichero  en  cinta,  proceso  que 
sin  esta  corrección  se  realizaba  de 
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•  Ordenadores  personales  Hard  y  Soft. 
•  Cursos  de  Basic. 


- RENOVACION  EN  MARCHA.  S  A. - 

OFICINAS 

C'  Espronceda.  34-2«  mi 
28003  MADRID 
Teléfono  (91)  441  24  T8 
REM  SHOP  1 

C/  Galileo.  4  -  28015  MADRID 
Teléfono  (91)  445  28  08 

REM  SHOP  2 

C/  Dr  Castelo.  14  -  28009  MADRID 
Teléfono  (91)  274  98  43 
REMSHOP-3 
D  Modesto  Latuente.  33 
28003  MADRID 
Teléfono  (91  (233  83  19 

REM  SHOP  ■  BARCELONA 

O  Pelayo.  12  -  Entresuelo  J 
Teléfono  (93)  301  47  00 

REM  SHOP  ■  LAS  PALMAS 

Gral  Mas  de  Gaminde.  45 
Telefono  (928)  23  02  90 
(Inauguración)  25/2/85 


casa  de 
software  sa. 


c/  aragón,  272.  89.  6  “ 

tel.  215  69  52  -  08007  barcelona 

•  Software  profesional  para  C-64 

•  Con  distribución  productos 
DIGITAL  RESEARCH 


- 

r 

Avda.  de  Arteijo,  19 
14004  La  Coruña 
Teléf.  25  51  72 


Especializados 
en  software  para 
Commodore-64 
Spectrum 
y  MSX 


COMPARE  LOS  PRECIOS 

COMMODORE  64 

54.500 

DATASSETTE 

10.000 

FAST-TLRBO  MENUE 

8.500 

SOLO  FLIGHT 

.V800 

COLOSSUS  C  HESS  2.0 

2.800 

ZAXXON 

2.300 

TOTAL 

81.900 

POR  SOLO 

59.900  Ptas. 

Modem  completo  desde 

16.000 

Commodore  SX-64 

180.000 

Floppv  1541 

59.900 

Commodore  64 

49.900 

Impresora  MP-2080 

63.500 

Amstrad  Fósforo  verde 

76.000 

Amstrad  Monitor  color 

115.000 

ASTOC  DATA 

Apartado  de  Correos,  695 

SANTIAGO  DE  COMPOSTELA 

Tel.  (981)  59  95  33 

_ 1 

SUMINISTROS  ELECTRONICOS 
(C.O.S.E.S.A.) 

ORDENADORES  PERSONALES 

—SINCLAIR  -SPECTRA 

— COMMODORE  VIDEO 

—LASER  —SONY 

C/  Barquillo,  25 

Telfs..  222  t9  49-232  3»  44-231  29  18-221  55  07 
28004  MADRID 
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•  ORDENADORES  PERSONALES 

•  ACCESORIOS  INEORMATICA 

•  COMPONENTES 
ELECTRONICOS 

•  TELECOMUNICACIONES 

Paseo  de  Gracia  126-130 
|  Tel.  237  11  82*.  OSOOS  BARCELONA 


CENTRO  DE 
INFORMATICA 

Las  Rozas  -  Majadahonda 
EMPEZAMOS 
Cursillos  en  BASIC 
cada  1 5  días 
Tenemos 

todo  lo  referente  al 
COMMODORE  64 

Teléfono:  637  31  51 


ELECTRONICA 
ASANDO  VAL.  *  I 

DISTRIBUIDORES  DE 

ORIC-1 
CASIO  FP200 
ROCKWELL-AIM-65 
VIDEO  GENIE-EG-2000 
CASIO  FX-9000P 
SINCLAIR  SPECTRUM 
OSBORNE  1 
DRAGON  32 
NEW  BRAIN 
EPSON  HX-20 

C/SANDOVAL.  3.  4.  6  MADRID  28010 
TELEFONOS  445  18  33/18  70 
TELEX  47784  SAVL-E 


£2 

VENTAMATIC 


■  •VEN  A  CONOCERNOS  Somos  los  SUPER 

■  ESPECIALISTAS  del  COMMODORE  64  y  lot« 

Inemos  TODO  par»  tu  COMMODORE  64  unclu 
yendo  lo  último  en  accesorios  y  programas 

I  musicales  y  MIDIi  SOLICITA  CATALOGO 
COMPLETO 

I  •VENTAMATIC  c  Córcega  89  enUo  08029 
BARCELONA  Tel  .93>23O97  90  Metro  EN 
|  TENZA  Linea  V  Bus  41  27  18.  84.  86 
Departamento  de  Envíos  y  Venta  por  Correo 

■  •VENTAMATIC  Avda  de  Rhode  283  ROSES 
iGironei  Tel  1 972 1  28  79  20 
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-  ORDENADORES  PERSONALES  • 


•  Sinclair  Speclrum  -  Plus  -  QL 

•  Speclravideo  328  y  MSX 

•  Alari  800  XL  y  600  XL 

•  Dragón  32  y  64 

•  Commodore  64 

•  Oric  Almos 

•  Amstrad 

-  PERIFERICOS  Y  ACCESORIOS 

-  SOFTWARE  PARA  TODAS  LAS 
MARCAS 

-  CURSOS  DE  BASIC 

-  GRAN  SURTIDO  EN  LIBROS 
Y  REVISTAS 


Francisco  S ¡ivela,  19 
Teléfono  401  07  27.  28028  MADRID 


Telj :  204  SI  9H  .  Madrid 

COMMODORE 

SERVICIO  TECNICO 


EN  HUELVA 

Commodore 

Spectrum 

Nixdorf 

Informática  Computer  Log 

NIEVA  ONDA 
C/  Puerto,  6 

HUELVA.  Teléf:  25  81  99 


Ce 


— Utilizando  las  interrupciones,  como 
se  explicó  en  el  número  diez  de  COM¬ 
MODORE  WORLD.  Generalmente  hay 
que  hacer  una  rutina  de  carga  completa 
en  lenguaje  máquina. 

COMMODORE  16 

Pienso  adquirir  un  C- 
16,  pero  tengo  unas 
dudas  que  me  queda¬ 
ron  después  de  leer  la 
reseña  del  número  13  de  esta  revista. 

1.  — ¿Los  programas  del  VIC-20  o  del 
C-64;  al  nuevo  16  son  adaptables? 

2.  — Tienen  en  proyecto  publicar  el 
mapa  de  memoria  de  este  ordenador, 
para  hacer  adaptaciones  de  estos  pro¬ 
gramas  que  incluyen  sentencias  POKE  v 
PEER? 

Como  pueden  ver,  lo  que  más  me  pre¬ 
ocupa  es  la  falta  de  software  para  el  C- 
16,  el  cual,  opino,  es  el  ordenador  con 
más  futuro  para,  los  que  como  yo, 
desean  aprender  a  programar  estas 
máquinas  y  no  disponen  de  muchos 
ingresos. 

Jesús  £.  Jiménez 
C/  General  Arando.  8 
020  Mina  ya  (Albacete). 

1- — Por  supuesto,  en  un  número  de 
estos  publicaremos  los  cambios  al  igual 
que  hicimos  con  el  VI C  y  el  64. 

2. —  Todavía  no  hemos  visto  el  mapa, 
pero  intentaremos  conseguirlo. 

DESIERTO  VIC-20 

El  programa  Video  Ca¬ 
sino.  Aventuras  en  el 
desierto  del  n“  4,  que  se 
corrigió  en  el  n°  8,  no 
logro  ponerlo  en  marcha,  por  lo  que  le 
rogaría  me  indicase  si  hay  algún  error 
en  el  mismo. 

Enrique  Hausmann 
C/  Constitución.  3 
07001  Palma  de  Mallorca. 

La  corrección  del  número  ocho  hacía 
que  pudieran  verse  las  ruedas  del  jeep, 
por  lo  demás  el  programa  está  bien.  No 
entendemos  qué  quieres  decir  al  no  poder 
"ponerlo  en  marcha”.  Si  lo  que  no  te  fun¬ 
ciona  es  el  RUN,  comprueba  la  memoria 
que  tienes  conectada  a!  ordenador  y  que 
la  carga  desde  cinta  se  haya  realizado 
correctamente. 

MULTICOLOR 
O  ALTA  RESOLUCION 

Queridos  amigos,  os 
mando  dos  preguntas, 
aunque  lo  segundo  sea 
más  bien  una  sugeren¬ 
cia.  Ahi  van:  (son  para  el  VIC  20). 

1°  ¿Cómo  se  pueden  colorear  bit  a 
bit  los  caracteres  definidos  por  el  usua¬ 
rio?  Por  favor,  explicádmelo  muy  da¬ 
nto,  porque  si  no,  no  me  entero. 


2o  ¿Por  qué  en  los  programas  que 
aparecen  en  la  revista,  y  que  se  mueven 
con  el  teclado,  no  incluís  vosotros 
aparte  una  pequeña  rutina  para  que  se 
pudiesen  mover  con  joystick,  o  vice¬ 
versa?  (Naturalmente,  esto  sólo  se 
podría  hacer  en  los  programas  de  jue¬ 
gos). 

Alvaro  Minguito 
C/  Numancia,  30-7 9  C 
Madrid 

1.  — Bit  a  bit  no  se  puede,  sí  por  parejas 
3'  utilizando  sólo  tres  colores.  El  artículo 
“ Vic  Multicolor”  de  este  número  puede 
que  te  aclare  cómo  se  hace. 

2.  —  Ya  lo  hemos  hecho  con  algunos,  e 
intentaremos  seguirlo  haciendo. 


CARACTERES 
PERSONALIZADOS  Y 
SUPER-EXPANDER 

Os  escribo  para  hace¬ 
ros  una  pequeña  pre¬ 
gunta,  veréis,  resulta 
que  yo  tengo  un  editor 
de  caracteres  para  el  VIC-20  copiado  de 
la  Commodore  World  n°  7  (pág.  46), 
pero  los  caracteres  funcionan  con  e¡ 
VIC  sin  ampliación,  me  gustaría  saber  si 
hay  alguna  manera  de  que  se  puedan 
imprimir  los  caracteres  en  la  pantalla 
del  VIC  con  el  super-expander  conec¬ 
tado  en  el  modo  gráfico,  gracias. 

Alvaro  Nieto  Pérez.  N*  suscriptor  2882 
C/  Blas  de  Otero,  ÓI-KPC. 

Telf:  447  68  76 
48014  Bilbao 

Hemos  recibido  muchas  cartas  pregun¬ 
tando  lo  mismo  que  tú.  Que  sepamos,  no 
hay  otro  método  para  hacerlo  que  no  sea 
dibujar  el  carácter  pixel  a  pixel,  lo  cual 
además  de  ser  lento  es  bastante  compli- 

ERRORES  POR  TODAS  PARTES 

- —*  Soy  suscriptor  de  vues- 

tra  revista  desde  el  nB  12. 

/  \  Me  apunté  a  ella  ante 

(- - la  necesidad  de  tener 

un  asesoramiento  de  mi  lento  y  solitario 
trabajo  en  el  aprendizaje. 

Poseo  un  VIC-20  y  aunque  hace  ya  un 
año  que  lo  tengo,  mis  conocimientos  de 
programación  son  todavía  muy  escasos. 

Si  bien  mis  estudios  no  me  dejan  dema¬ 
siado  tiempo  para  dedicarme  a  mi  orde¬ 
nador  (estudio  Ingeniería  Técnica  In¬ 
dustrial),  procuro  entender  y  ejecutar 
los  programas  que  aparecen  en  la 
revista.  No  obstante  parece  ser  que  no 
tengo  mucho  éxito  y,  aunque  ya  voy 
aprendiendo,  no  consigo  llevar  a  cabo 
ninguno  de  los  dos  programas  de  los 
que  aparecieron  en  el  mencionado  n''  12. 
de  los  que  he  intentado.  Mis  dificultades 
están  en: 

Io)  El  programa  “Cuevas  de  Alfa  | 
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Ceti".  Después  de  listarlo  cambia  la 
pantalla  a  blanco  y  aparece:  “Un 
momento...".  Continúa  con:  “Error  en 
los  datas"  y  se  para  el  programa.  Por 
mucho  que  repaso  no  encuentro  ningún 
error  en  los  datas  que  listé. 

2o)  El  programa  "Llamador”.  La 
linea  110  no  aparece  en  el  listado,  y 
cuando  intento  introducirla  sólo  con¬ 
sigo  hacerlo  hasta  el  último  POKE  36. 
Pero  a  partir  de  ese  6  ya  no  puedo  gra¬ 
bar  el  resto  de  la  linea  pues  no  entra, 
incluso  copio  nuevamente  la  linea 
entera  y  pulso  RETURN,  sin  que  esta 
nueva  linea  sustituya  a  la  anteriormente 


Me  gustaría  también  que  me  indicá- 
rais  brevemente  las  principales  caracte¬ 
rísticas  técnicas  del  VIC:  capacidad  de 
memoria,  etc.,  pues  en  mi  entorno  al 
menos,  parece  que  hay  un  poco  de  con¬ 
fusión. 

Feo.  Ginés  Pastor  Través 
C /  Eduardo  Dato.  45-9» A.  Telf.:  58  01  76 
41005  Sevilla 

1.  — Mira  a  ver  si  el  número  que  com¬ 
prueba  los  datas  (linea  60)  es  correcto.  Si 
no  lo  es  probablemente  que  te  has  dejado 
alguna  coma  o  la  has  cambiado  por  un 
punto  o  porque  has  tecleado  una  “ o ”  en 
vez  de  un  cero. 

2.  — El  VIC  sólo  acepta  lineas  de  88 


caracteres  de  longitud  (el  C-64  sólo  8 
Esta  linea  es  más  larga  de  lo  permitido 
por  lo  que  tienes  que  utilizar  las  abrevia¬ 
turas  de  los  comandos  POKE  y  NEXT. 
POKE  abreviado  es  P[SU1FT  O]  y 
NEXT  es  N[SHIFT  E\. 

El  VIC  “a  secas ”  tiene  3.5  Kbytes  de 
memoria  libre  y  es  ampliable  a  32K,  de 
los  que  sólo  unos  29.000  se  pueden  usar 
en  Basic.  También  hay  unas  tarjetas  de 
64K  que  actúan  a  modo  de  ficheros. 


“Commodere  World” 

de  venderse  generalmente  en  kioscos,  se  encuentra  asimismo 
en  las  siguientes  distribuciones  de  Commodore  y  librerías. 

LEON 

•  Logdata.  c/ Burgo  Nuevo,  4. 
teléfono:  (987)  20  42  89. 

•  MicroBierzo.  c/Carlos  I,  2. 

Teléfono:  (987)  41  74  2t  (Ponferrada). 


Suministradora /,  S.A.  Av.  Barbera,  49-51. 
Sabadell.  Teléfono:  (93)  710  56  66. 

Tronic.  Bigay,  11-13.  Tel.:  (93)  212  85  96. 


•  Basic.  c/San  Mateo,  11.  Teléfono.  (965) 
21  10  41. 

•  Casa  Wagner.  c/Juan  Carlos  1,  37.  Elda. 
Teléfono:  (965)  39  03  96. 

•  Ferretería  Progreso,  c/General  Jordana,  28. 
Elda.  Teléfono:  (965)  38  11  45. 

ASTURIAS 

•  Cuadrado  Informática.  c/Toreno,  5. 

33004  Oviedo.  Tel.:  (985)  24  06  21. 

BADAJOZ 

•  Control  Sistemas.  Avda.  Santa  Marina,  25A. 
Teléfono:  (924)  25  88  00. 

BARCELONA 

•  Catinsa  Informática,  c/de  L'Esglesia,  15. 
Teléfono:  (93)  784  27  17.  Terrasa. 

•  Comercial  Clapera.  c/Mariano  Maspons,  4. 
Granollers.  Teléfono  (93)  870  45  42. 

•  Computerhard  c/s.  Jaime.  48.  Granollers. 
T  eléfono:  (93)  870  09  19. 

•  Electrodomésticos  Mirambell.  c/Kabal,  45. 
San  Sadurni  d'  Anoia.  Teléf.:  (93)  891  1 1  34. 

•  Librería  Emilia  Pérez  Radua,  c/Mavor,  35. 
Castellar  del  Vallés.  Teléfono:  (93)  714  89  51 . 

•  Librería  Michel.  Rda.  Guinardo,  1. 
Sardañola. 

•  Mozart.  c/Jaime  I,  145.  Mollet. 

Teléfono:  (93)  593  75  01. 

•  Radio  Watt.  Paseo  de  Gracia,  130. 
Teléfono:  (93)  237  11  82. 

•  Register  l.atelv.  c/Balmes,  297.  ppal.  2.* 
Teléfono:  (93)  200  18  99. 

•  Sonimóvil.  c/ Alcalde  Armengou,  53. 
Manresa.  Teléfono:  (93)  873  78  17. 


•  E.l.S.A.  c/Madrid.  4. 

Teléfono:  (947)  20  46  24. 

CACERES 

•  Electrónica  Cáceres.  c/Badajoz,  45. 
Teléfono:  (927)  248  899. 

•  Informática  Vivas  White.  San  Pedro,  8. 
Teléfono:  (927)  24  40  96. 

CADIZ 

•  Video  Computer.  Comandante  Gómez 
Ortega,  59.  Algeciras.  Tel.:  (956)  65  39  02. 

CASTELLON 

•  Horizontes.  c/Navarra,  76. 

CIUDAD  REAL 

•  Electrónica  Turrillo.  c/Pedrera  Baja,  7. 
Teléfono:  (926)  22  38  67. 

LA  RIOJA 

•  Librería  Sánchez  Ochoa.  c/Sagasta,  3. 
Teléfono:  (941)  258  622  Logroño. 


•  Key  Informática,  c/ Embajadores,  90. 
Teléfono:  (91)  227  09  80. 

•  Librería  García  Peña.  c/Cavanilles,  52. 

•  Micromundo,  S.A.  El  Zoco.  Majadahonda. 
Teléfono:  (91)  638  13  89. 

•  Micros  Garden.  c/Francisco  Silvela,  19. 
Teléfono:  (91)  401  07  27. 

•  Remshop.  Galileo,  4.  Tel.:  (91)  445  28  08. 

•  Winkel- Microsoft  M-2  La  Vaguada.  Local  B 
82-83.  Teléfono:  (91)  730  26  22. 

MALAGA 

•  Informática  Martínez,  S.A.  c/Cristo  de  la 
Epidemia,  90.  T  eléfono:  (952)  26  37  68. 


•  Bermcllo.  c/Gral.  Franco,  123. 

PAMPLONA 

•  llar  Compulers,  S.A.  c/ Alfonso  el 
Batallador.  16  (Trasera).  I  el.:  (948)  27  64  04. 


•  Cetronic,  S.L.  c/Palomar,  22  Bajo. 
Teléfono:  (981)  27  26  54. 

•  Gesty  Computer.  Avda.  Romero  Donallo,  25. 
Tel.:  (981 )  59  87  54.  Santiago  de  Compostela. 

•  Sanlusa,  S.L.  San  Luis,  46  al  50. 

Teléfono:  (981)  23  07  49. 

GERONA 

•  Digit  Informática.  c/Avda.  1 1  septiembre,  7. 
Olot.  Teléfono:  (972)  26  94  01. 

•  Microchip.  c/Aigua,  3.  Olot.  Tel.:  26  36  63 

•  Regiscompte,  S.A.  c/Emilio  Grahit,  17  Bis. 
Teléfono:  (972)  21  99  88. 

GRANADA 

•  Rafael  Moreno  Torres.  c/Recogidas,  24. 
Edif.  Castro.  Teléfono:  (958)  26  20  50. 

HUELVA 

Computerlog,  S.A.  c/Tendaleras,  15. 
o:  (955)  25  81  99. 


>  La  Boutique  del  Ordenador.  Vclázquez 
Moreno,  I  Bajo.  Vigo-1. 

Teléfono:  (986)  22  45  36. 


•  Dommicro,  S.A.  c/Arrasale,  6. 

Teléfono:  (943)  42  35  10. 

SANTANDER 

•  Librería  Hernández.  San  Francisco,  15. 
Teléfono:  (942)  22  53  30. 

SEVILLA 

•  Microtienda-1,  S.A.  c/ Aceituno,  8. 
Teléfono:  (954)  37  85  57. 

TARRAGONA 

•  Oficomplet.  Plaza  de  la  Cinta,  6.  Tortosa. 
Teléfono:  (977)  44  14  50. 

VALENCIA 

•  Ineleksa.  c/Remedio,  38-hajo-dcha.  Sagunto. 
Teléfono:  (96)  266  48  64. 

•  Librería  Mayte.  c/Pinlor  Benedito,  3. 
Teléfono:  (96)  325  28  83. 

ZARAGOZA 

•  ADA  Computer.  Centro  Independencia. 

P«  Independencia.  24-26.  Tel.:  (976)  29  85  62. 

•  Bazar  Runa.  c/Duquesa  Villahermosa,  3. 
Teléfono:  (976)  35  09  48. 
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Magia 


La  MAGIA  son  trucos,  la  MAGIA  es 
divertida. 

La  MA  GIA  es  hacer  lo  que  nadie  se  ha 
atrevido  y  resulta  ser  la  fuente  más  com¬ 
pleta  de  información  para  la  informática 
práctica. 

La  MA  GIA  es  una  sección  mensual  llena 
de  consejos,  trucos,  de  esto  y  aquello  del 
mundo  del  software,  hardware  y  aplicacio¬ 
nes,  trucos  descubiertos  por  los  demás  que 
Hacen  que  la  informática  sea  más  fácil,  más 
divertida  o  más  animada. 

MAGIA  habla  de  ¡deas  sencillas,  pro¬ 
gramas  de  una  sola  línea,  subrutinas  útiles, 
hechos  de  informática  poco  conocidos  y 
otras  cosas  de  interés. 

Los  trucos  de  magia  enviárnoslos  com¬ 
probados,  pues  hay  varios  incorrectos.  ¡Ah! 
y  no  nos  mandéis  trucos  repetidos...  ¡Listos! 


MAS  PROGRAMAS  DE  UNA  LINEA 

En  la  página  33  del  número  I  de  “Commodorc  World”  se  publicó 
un  divertido  programa  de  una  línea  con  76  caracteres.  He  aquí  un 
programa  que  hace  lo  mismo,  pero  con  51  caracteres  solamente. 

I  PRlNT"(RVSON][SPCl[CRSRL]”MID$(‘‘[CRSRU][CRSRD] 
[CRSRL][CRSRR]",RND(  1)*4+1,1)“*[CRSRL]";:A=2  |2:RUN 
En  la  página  51  del  núm.  7  se  daba  un  programa  de  una  linea  con 
69  caracteres  para  pasar  de  decimal  o  binario.  Por  cierto  que  al  autor 
se  le  olvidó  decir  que  sólo  vale  hasta  N=255.  Aquí  va  un  programa 
que  hace  lo  mismo,  pero  con  43  caracteres  solamente: 

I  INPUTD:f'ORI=0TO7:PRINT“[CRSRU](INST]"DANDI. 
D=D/2:NEXT 

Un  programa  con  56  caracteres,  pero  más  general,  ya  que  es  válido 
hasta  D=2  f  32=4294967296,  y  más  elegante,  puesto  que  no  hay  ceros 
a  la  izquierda,  seria  el  siguiente: 

I  INPUTD:FORC=OTOO:C=— INT(D/2):PRINP‘[INST]" 
D+2,C“[CRSRU]":D= — C:NEXT 
Y  ya.  para  completar,  asi  se  haría  el  paso  de  binario  a  decimal, 
válido  hasta  mil  millones  (decimal): 

I  INPUTB$:FORI=  ITOLEN(B$):D=2*D+VAL(MlD$(B$,l,l)): 
NEXT:PRINTD 

Ernesto  Ferrón  de  la  Fuente 
Aller.  31  B.  2»  Deha. 
Mieres  ( Asturias ) 

UNA  “Ñ”  PARA  EL  VIC 

Se  trata  de  aprovechar  la  posibilidad  de  construir  nuestro  propio 
juego  de  caracteres  en  el  V1C-20  para  disponer  de  la  letra  “Ñ". 

La  rutina  de  abajo  es  para  el  VIC-20  sin  expansión  de  memoria  y  la 
Ñ  queda  situada  en  el  lugar  de*-.  Si  queréis  situarla  en  otro  sitio  no 
tenéis  más  que  cambiar  el  31  de  la  linea  2  por  el  código  del  carácter 
que  sea. 

1  FORJ=0TO51  l:POKE7168+J,PEEK(32768+J):NEXT 

2  FORK=7 168+3 1*8T07 168+3  l*8+7:READY:POKEK,V:NEXT 

3  POKE52,28:POKE56,28:  POKE36869.255 

4  DATA90, 66,98,82,74,70,66,0 

Císar  Alvarez 


HES-MON 

El  otro  día,  leyendo  vuestra  revista  en  la  sección  de  “Seamos  Pre¬ 


guntones",  se  preguntaba  cómo  se  podía  saber  la  dirección  inicial  y 
Final  de  un  programa  utilizando  el  HESMON,  y  la  respuesta,  por 
supuesto  era  la  correcta,  pero  existe  otra  posibilidad  de  saberlo  sin 
necesidad  de  cargar  el  programa  en  la  memoria  y  es  la  siguiente.  Se 

*— «NOMBRE  PROGRAMA 
(NO  hay  que  poner  comillas  al  NOMBRE  PROGRAMA) 

Y  por  supuesto  en  la  unidad  de  disco  debe  estar  el  disco  que  con¬ 
tenga  el  programa  NOMBRE  PROGRAMA. 

Al  escribir  lo  anterior  y  pulsar  RETURN,  la  unidad  de  disco 
comenzará  a  girar  y  al  poco  tiempo  aparecerá  en  la  pantalla  2  núme¬ 
ros,  que  por  supuesto  son  las  direcciones  de  inicio  y  final  del  pro¬ 
grama  NOMBRE  PROGRAMA. 

Esta  instrucción  no  carga  en  programa  en  memoria  del  ordenador, 
es  decir,  si  deseamos  cargarlo  debemos  utilizar  el  método  normal 
L-NOMBRE  PROGRAMA". 

Sin  más  por  esta  carta,  sólo  felicitaros  por  la  estupenda  revista  que 
mensualmente  publicáis,  se  despide  de  vosotros  vuestro  amigo: 

José  Antonio  Fernández  Filiaría 
C/  García.  II.  2-lzq. 

Gijón  (Asturias) 


DEMOSTRACION  DEL  SUPEREXPANDER 

A  la  vista  de  las  pocas  colaboraciones  que  se  ven  en  la  revista  sobre 
la  aplicación  del  SUPEREXPANDER  me  he  decidido  a  mandarles 
este  corto  programa  que  pone  de  manifiesto  las  magnificas  propieda¬ 
des  del  cartucho: 

10  POKE36879.8 
20  GRAPH1C  2 
30  REGION  7 

40  FOR  T  =  1-TO  100  :STEP2  :  G=G+10 
50  Y=SIN  (T/16)»  100+512 
60  CIRCLE2,5l2,Y,G*2,G 
70  NEXTT 

(Pinta  la  función  seno  tridimensionalmente). 

Puede  ser  interesante  la  experimentación  con  el  programa,  inten¬ 
tando  dibujar  otras  funciones  o  mejorándolo  gráficamente.  Aquí  tie¬ 
nen  dos  ejemplos  de  lo  que  se  puede  hacer  con  él: 

—Cambio  de  función:  se  puede  cambiar  SIN  de  la  línea  50  por  COS. 
— Efectos  gráficos:  añadir: 

60  CIRCLE2.512  ,Y,G*2,G,35,15 
65  CIRCLE2,512,Y+I00,G*2,G,  15,35 
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Espero  que  mi  programa  haya  servido  para  que  los  lectores  inten¬ 
ten  otras  aplicaciones  del  SUPEREXPANDER  y  así  se  aumenten  las 
colaboraciones  sobre  este  tema. 

José  C.  Sarria  Moscoso 
C/  Barcenillas.  4-4“  O 
29012  Málaga 


BORRADO  PARCIAL  DE  PROGRAMA 

Si  deseamos  borrar  la  parte  posterior  de  un  programa  y  no  quere¬ 
mos  ir  línea  por  linea,  se  puede  efectuar  de  la  siguiente  forma: 

1)  Detrás  de  la  línea  última  que  queramos  mantener,  creamos  una 
linea  cuyo  texto  sea  :::  (o  sea,  tres  dobles  puntos).  Ej.  150  ::: 

2)  Al  final  del  programa  creamos  las  líneas  siguientes: 

65500  FOR  T  =  PEEK(44)*256  TO  9f  9:IF  PEEK(T-2)+PEEK 
(T-I)+PEEK(T)<  >3*58  THEN  NEXT 

65510  POKE  T-6,0:POKE  T-5,0 

Para  que  funcione  hacer  RUN  65500 

Nota:  Sirve  para  C-64  y  VIC-20.  La  linea  de  los  tres  puntos  dobles 
es  la  señalizadora  para  el  comienzo  del  borrado. 

Federico  Iborra 
Suscripior  n“  1376 

TRUCOS  PARA  EL  NUEVO  16 

Soy  un  nuevo  socio  de  vuestra  revista.  Poseo  un  C-16  y  os  mando 
una  colaboración  para  la  sección  de  Magia;  consiste  en: 

—Pulsar  simultáneamente  RUN-STOPy  RESET  para  visualizar  el 
monitor  de  código  máquina. 

—A  continuación  pulsar  M  y  RETURN.  Aparecerá  en  pantalla 
algo  extraño,  que  supongo  serán  las  primeras  direcciones  de  memoria 
con  sus  valores  correspondientes.  En  el  margen  derecho  veréis  una 
banda  en  RVS-ON  que  contiene  una  serie  de  símbolos. 

—El  siguiente  paso  consiste  en  posicionar  el  cursor  al  principio  de 
la  cuarta  de  estas  nuevas  líneas,  concretamente  sobre  el  signo 
“mayor".  Pulsar  de  nuevo  M-RETURN  y  aparecerá  un  listado  de  la 
memoria  RON  (creo)  que  pasará  lentamente  pulsando  la  tecla 
COMMODORE.  Si  tenéis  paciencia  observaréis  en  la  franja  oscura 
todos  los  comandos  BASIC,  los  mensajes  de  error,  los  del  datassettc  y 

Víctor  José  Gallardo  Martin 
C/  Moreras,  4  Bajo 
10003  Cáceres 


GANANDO  VELOCIDAD 
EN  NUESTROS  PROGRAMAS 

Les  envío  unas  colaboraciones  para  la  sección  de  Magia,  espero  que 
sean  de  su  agrado. 

Para  ganar  velocidad  en  los  programas  en  Basic: 

—Numerar  el  programa  con  números  consecutivos  (10,11,12,...)  y 
cuanto  más  bajos  mejor. 

—En  los  bucles  for...next,  en  el  next  poner  simplemente  NEXT,  sin 
variable. 

—Si  es  posible,  utilizar  variables  sin  matrices  ni  arrays. 

—Si  en  un  programa  hay  sentencias  DATA,  ponerlas  al  principio 
del  programa. 

—Al  hacer  una  variable  a  cero  poner  X=.  , 

En  cambio,  si  quieres  ver  cómo  trabaja  el  VIC-20  secuencia  a 
secuencia  pon  POKE  37879,0  ,  (a  medida  que  aumentes  el  número 
verás  cómo  va  ganando  un  poco  de  velocidad). 

Si  quieres  retrasar  la  velocidad  de  movimiento  del  cursor  pon 
POKE  37879,255. 

Juan  Clapes  Ribas 
C/  Madrid,  35-5-2.' 

Telf:  (971)  310992 
¡biza  ( Baleares ) 

CONTRASEÑA 

En  alguna  ocasión  habréis  querido  que  en  un  programa  hubiera 
que  teclearse  una  CONTRASEÑA  SECRETA  para  tener  acceso  al 

Este  corto  programa  permite  teclear  la  contraseña  pero  sin  que  se 
vea  lo  tecleado  en  la  pantalla,  asi  si  hay  alguien  cerca  de  nosotros  y  si 
somos  rápidos  tecleándola  no  sabrán  cuál  es  la  palabra  secreta. 

Está  hecha  con  GET,  tantas  como  letras  tenga  la  contraseña  inven- 


Además  podéis  añadir  un  campo  contador  y  un  condicionante  y  si 
se  teclea  la  contraseña  varias  veces  incorrectamente  podéis  llevarlo  a 
una  subrutina  de  despedida  que  indique  algún  mensaje  y  que  acabe 
con  SYS  64738. 

Antes  de  la  sentencia  SYS  64738  hacer  un  FOR/NEXT  que  retarde 
el  borrado  del  programa  y  mantenga  el  mensaje  un  rato. 

Tanto  POKE  788,52  como  POKE  774,255  son  efectivos  una  vez 
corrido  el  programa. 

Si  se  carga  el  programa  mediante  LOAD  se  puede  listar  el  pro¬ 
grama  una  vez  cargado,  cosa  que  seria  fatal  ya  que  se  sabría  el  nom¬ 
bre  de  la  contraseña. 

Para  evitar  eso  es  preferible  salvar  el  programa  sin  nombre  y  car¬ 
garlo  mediante  SHIFT  y  RUN/STOP  para  que  el  programa  una  vez 
cargado  corra  sin  necesidad  de  teclear  RUN. 

1  REM  CONTRASEÑA  INVISIBLE 

2  POKE  788,52  :  REM  BLOQUEA  TECLA  RUN/STOP 
UNA  VEZ  CORRIDO  PROGRAMA 

3  POKE  774,255  :  REM  IMPIDE  LISTAR  UNA  VEZ 
CORRIDO  EL  PROGRAMA. 

4  Z$  =  "SEBAS"  :  REM  INDICAR  NOMBRE  DE 
CONTRASEÑA. 

5  PRINP  CLR/HOME" 

10  PRINT“TECLEE  CONTRASEÑA" 

20  GET  A$  :  IF  AS  =  THEN  20 
30  GET  B$  :  IF  B$  =  “"  THEN  30 
40  GET  C$  :  IF  C$  =  ""  THEN  40 
50  GET  D$  :  IF  D$  =  THEN  50 

60  GET  ES  :  IF  ES  = . rHEN  60 

70  REM  COLOCAR  TANTAS  GET  COMO  LETRAS 
TENGA  LA  CONTRASEÑA 
80  IF  A$+B$+C$+D$+E$*o»Z$  THEN  GOSUB  5000 
90  IF  A$+B$+C$+D$+E$  =  Z$  THEN  110 
100  GOTO  5 

1 10  FOR  X  =  1  TO  2000  :  NEXT  X  :  PRINT  "CLR/HOME” 
120  PRINT  TAB(5)  "HOLA  AMIGO"  ;  Z$ 

130  PRINT  TAB(3)  "ESTOY  LISTO  PARA  TRABAJAR" 

140  FOR  X  =  I  TO  4000  :  NEXT  X 


>  Tele  Sant  Just 

Mayor,  2.  Tel.  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y  transmitir 
CW  y  RTTY  EN  EL  VIC-20  y 
COMMODORE  64 


INTERFACE  para  poder  conectar  cualquier 
cassette  a  los  ordenadores 
COMMODORE  64 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL 

"NECESITAMOS  DISTRIBUIDORES" 


Commodore  World  Mayo  1985/53  — * 


JPaaoaowwoD 


4500  END  :  REM  ANTES  DE  END  TECLEAR  EL  PRO¬ 
GRAMA 

5000  PRINT  TAB(5)“CONTRASEÑA  NO  VALIDA" 

50001  FORX  =  1  TO  3000  :  NEXT  X  :  RETURN. 

Sebastián  Soler  Alonso 
Verdi.  44-3° 
Telf  :  237  69  47 
08012  Barcelona. 

ERRORES  EN  EL  INPUT 

“Cuando  hacemos  un  INPUT  con  una  variable  numérica  (por 
ejemplo  INPUT  A)  corremos  el  riesgo  de  que  el  operador  introduzca 
por  equivocación  una  letra  con  lo  que  saldrá  en  pantalla  un  mensaje 
de  error  que  puede  estropear  una  presentación  elaborada.  Esto  se 
puede  arreglar  en  gran  parte  con  este  truco: 

1  Input  a$:a=val(a$);If  a=0  then  1 
Esto  mismo  se  puede  hacer  con  GET.  La  variable  resultante  es  una 
variable  numérica(a)  siempre  que  no  sea  una  letra.  En  tal  caso  vuelve 
a  hacer  el  input  sin  que  aparezca  ningún  mensaje  de  error. 

Rene  Suárez  Hería 
Tirana-Lariana  (Asturias) 


PANTALLA  MOVIL  EN  EL  C-64 

En  primer  lugar,  deseo  felicitaros  por  vuestra  revista,  pues  con  ella 
he  aprendido  mucho.  Bueno,  ahí  va  lo  que  os  tengo  oue  decir  son 
estos  POKEs: 

POKE  53265,87  (Se  encoge  la  pantalla  y  el  cursor  aparece  de  color 
rojo,  pero  al  escribir,  escribe  en  color  que  se  quiera). 


Si  se  van  disminuyendo  los  números  (86,85...),  hasta  80,  las  letras 
van  subiendo. 

Carlos  Acuña  Quiroga 
Carrera  del  Conde.  2-4 °  C 
Santiago  de  Compostela  (La  Coruña) 
Galicia 

“TRON”  MEJORADO 

Muy  satisfecho  por  el  viraje  a  programos  en  C/M  que  está  dando 
definitivamente  "nuestra"  revista,  os  mando  una  mini-contribución 
conectada  con  TRON  de  J.  M.  Beltrán,  publicada  en  el  n°  14,  pág.  54. 

Yo  estaba  tan  cansado  de  ver  cómo  la  ventanita  del  trazador  del 
Simon's  Basic  era  algo  así  como  esas  persianas  con  resorte,  que  suben 
como  una  bala,  y  te  deja  a  dos  velas,  que  iba  a  fabricarme  un  traza¬ 
dor.  Pero  como  el  único  defecto  del  TRON  este  es,  que  el  “freno"  con 
un  lazo  es  poca  cosa  y  la  cosa  va  que  marea,  ahi  os  mando  un 
trinquete,  tal  que  con  minimas  modificaciones  el  TRON  va  al  paso  de 
pulsar  la  tecla  del  logotipo  y  luego  su  vecina  Shift.  Si  no  pulsas  nada 
más,  te  puedes  ir  a  tomar  café,  que  la  cosa  no  pasa  del  sitio. 

Los  cambios  obvios,  son: 

SC066  LDA  $028D  >  Espera  que  pulses  Shift, 

CMP  #$01  )  después  de  pulsar  logotipo. 

BNE  SC066 

NOP 

NOP 

C06F  NOP 

C070  Idem  TRON  del  amigo  BELTRAN 

José  M.  Paneque  Rodríguez 
Avda.  Andalucía.  Bl.  2.  3"  C 
Cabra  (Córdoba) 
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nergéticos  en  ROCKET  ROGER 
en  tu  distribuidor  habitual.  Pe 
'  el  protagonista  de  uno  de  m 


1 1IP  DDMEH5 


HI  003120 
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MERCADILLO 


•  Poseo  un  Commodore  64.  dalasscuc  c  impresora 
MPS-801.  así  como  una  amplia  biblioteca  de  pro¬ 
gramas  de  todo  tipo.  Me  gustaría  ponerme  en  con¬ 
tacto  con  usuarios  para  intercambio  de  programas. 
Me  interesan,  en  especial,  utilidades  para  impre¬ 
sora.  Luis  Luna  Barrios.  P/  Gomila,  16  -  10.  Tel. 
(954)  51  33  45.  41007  Sevilla.  (Re f.  31-383). 

•  Intercambio  programas  — en  cinta—  para  el 
VIC-20  de  juegos  y  utilidades,  con  o  sin  ampliación 
de  memoria.  Escribidme  a:  Francisco  Jesús  Gutié¬ 
rrez  Izquierdo.  0/  Prolongación  de  Escañuela,  2. 
14002  Córdoba.  (Re/.  M-384). 

•  Mr  guslaiia  hmii.ilI.ii  con  usuarios  dd  V1(_:ij 
para  intercambio  de  programas  y  experiencias  sin 
fines  lucrativos.  Llamar  o  escribir  a  José  Tomás 
Gómez  Valencia.  C/  Maria  Díaz  de  Haro,  163.  Tel. 
|94|  44 1  02  35  (noches).  48013  Bilbao.  (Ref  M-385). 

•  Vendo  para  el  VIC  cartucho  de  juego  "Júpiter 
Lander"  o  cambiaría  por  juegos.  Desearía  entablar 
correspondencia  con  Vic-ciosos  para  intercambio 
de  juegos,  compraría  joystick  o  cambiaría.  Direc¬ 
ción:  Javier  Fernández  Iglesias.  C/  Ramirancs,  4. 
Parrólos  (Pontevedra).  (Re/  M-386). 

•  Cambio  controlador  doméstico  de  8  relés  nuevo 
para  VIC-20  o  CBM-64  con  manuales  por  unidad 
de  cassette  Commodore.  También  cambio  cartucho 
para  VIC-20  "ROAD  RACE"  por  joystick  Cora- 
modore.  Tomás  Gómez  Valencia.  C/  Maria  Díaz 
de  Haro.  16  3F.  48013  Bilbao.  (Ref.  31-387). 

•  Vendo  Commodore  64,  con  cassette,  joystick  y 
juegos.  Además  del  manual  de  la  guia  de  referen¬ 
cia  C-64.  Todo  por  55.000  ptas.  También  muchas 
revistas.  Sergio  Vernis  Perraman.  C/  Mavcm,  1 1  - 
5“  I.  Barcelona.  Tel.  209  39  64.  (Ref.  M-388). 

•  Vendo  VIC-20  con  superexpander  3K.  cassette 
CN2,  funda,  joystick,  curso  Basic  1  y  II  parte,  car¬ 
tucho  de  juegos,  muchos  programas  en  cima,  revis¬ 
tas  y  libros.  Todo  en  perfecto  estado  de  uso  por 
40.000  ptas.  Juan  Giménez  Franco.  C/Daoíz  v 
Velar  de,  24  -2°.  08028  Barcelona.  Tel.  330  51  48' 
(Ref.  M-388). 

•  ■  I.  imdol  \  l<  -20  mu  ampliación  de 
I6K,  mucha  información  y  programas;  además 
programas  de  juegos  y  programa  de  40  columnas, 
l  odo  39.000  pías.  Antonio  López  Sánchez.  C/  Sa¬ 
lado.  3  -  2»  D.  Cartagena  (Murcia)  (968)  53  60  27. 
(Ref.  M-390). 

•  Vendo  o  cambio  por  impresora  para  Com- 
modore-64  cantidad  de  programas  de  utilidades  v 
juegos  para  el  C-64.  Pedro  Cazorla  López.  Argen¬ 
tina.  7.  Telf.  69  10  93.  Telde  -  Las  Palmas.  (Ref. 
M-391). 

•  Compro  controlador  de  8  relés,  o  cambiaría  por 
cartucho  de  juego  International  Socccr  (fútbol)  y 
programas  en  cinta  Organo  y  B1  Bombardero 
Nuclear  Ison  originales,  no  copias).  Juan  Caballero 
Diaz.  B“  GaudI,  Bl.  C  3.*  n»  8.  Reus  (Tarragona). 
(Ref.  M-392). 

•  Vendo  o  cambio  ordenador  CBM  VIC- 20  en  per¬ 
fecto  estado  de  funcionamiento,  junto  con  la  gra¬ 
badora  CN2,  un  joy  de  mando  anatómico,  cartu¬ 
chos  SRGON  II  y  Radar-Strace,  Manual  del  Usua¬ 
rio,  Guía  de  Referencia,  Primera  parte  del  curso  de 
introducción  al  Basic  en  dos  cintas,  libros  y  revistas 
especializadas  y  programas  en  cintas.  Todo  junto  o 
por  separado,  interesados  escribir  a  la  siguiente 
dirección:  Av.  de  Madrid.  203  B  3o  3.‘.  08014  de 
Barcelona.  Todo  junto  está  valorado  en  60.000 
ptas.,  precio  a  convenir.  Desearía  intercambiar 
información  sobre  programas  de  aplicación  para 
estadísticas  de  baloncesto,  (no  importa  el  tipo  o 
marca  de  ordenador).  José  de  Francisco.  Av.  de 
Madrid,  203  B  3.‘.  3.'.  08014-Barcclona.  (Ref 
M-393). 

•  Vendo  ordenador  Commodore  VIC-20  del  año 
84,  completo  más  programas  y  cartucho,  todo  por 
20.000  ptas.  Dirigirse  a  Julián  Sánchez  Alonso,  c/ 
funaima,  2-5“  D.  28033-Madrtd.  Telf.:  763  49  63. 
(Ref.  M-394). 


•  Urge  vender  cuanto  antes  VIC-20  +  cartucho 
SUPEREXPANDER  +  cartucho  de  juegos  Road 
Race  +  libros  introducción  al  lenguaje  de  progra¬ 
mación  Basic  I  y  II  (con  sus  cintas  correspondien¬ 
tes)  +  manual  del  usuario  (español  c  inglés).  Tam¬ 
bién  regalaría  2  cintas  de  30  juegos  en  código 
máquina  con  su  lista  de  exploración  de  los  progra¬ 
mas  para  realizar  intercambios.  Todo  ello  por 
29.000  ptas.  Escribid  o  llamad  a  Carlos  Gustavo  c/ 
Callado.  7. 4“  D.  41013-Sevitla.  Telf.  (954)  61  41  24. 
Mejor  de  1 .30  a  3  h.  o  de  19,30  a  22  h.  (Ref  M-395). 

•  Urge  vender  VIC-20  (abril  84)  en  perfecto  estado 
(con  embalaje  de  la  casa),  con  manual  en  castellano 
y  en  inglés,  libro  "Acceso  rápido  al  VIC-20"  por 
Tim  Hartncll.  3  cintas  con  programas  y  muchos 
listados  de  programas  para  VIC-20.  Lo  venderla 
todo  por  unas  22.000  pías.  Interesados  llamar  de  2 
a  3,30  ó  de  9,40  a  10,30  preguntando  por  José,  mi 
dirección  es:  José  Francisco  Alonso,  c/ Cruz  y  Cas¬ 
tillo,  8-5“ .  34004  Palencia.  Telf.:  (988)  72  80  99. 
(Ref.  M-396). 

•  Vendo  VIC-20,  1."  y  V  parte  del  curso  de  Basic, 
ampliación  de  memorias  3,5  K  y  16  K,  juegos  de  la 
casa  INDESCOMP,  Traganúmeros,  Trenzador, 
Myriads,  Frogger.  Asteroides,  Blikzkrig,  Coméas¬ 
eos,  etc.,  etc.... II  Chess  y  muchos  más.  Sargon.  Se 
puede  vender  todo  por  separado  o  bien  por  lotes, 
según  interese,  el  precio  no  habrá  problema.  Tam¬ 
bién  pedir  que  si  alguien  me  pudiera  facilitar  el  pru- 
grama  para  el  Commodore  64  de  CW  y  RTTY  para  el 
interfase  VIG-HAM).  Interesados  ponerse  en  con¬ 
tacto  con  Ramón  Petó  a  los  tclfs.:  336  26  39  o  bien 
al  335  45  46.  También  pueden  escribir  a  mi  direc¬ 
ción:  c/  Freixa  Llarga,  s/n.  L’Hospitalet  o  también 
el  apartado  2020  de  L'Hospitalct  de  Barcelona. 
(Ref.  M-297). 

•  Por  cambio  de  ordenador,  vendo  VIC-20  nuevo 
(adquirido  en  dic.-84)  en  perfecto  estado,  con  los 
libros  de  acceso  rápido  al  VIC-20  (más  de  50  pro¬ 
gramas)  y  guía  del  usuario,  un  cassette  original  de 
juegos  y  otro  con  algunos  programas,  todo  por 
20.000  ptas.  Llamad  o  escribid  a  Carlos  González, 
c/  Jacinto  Verdaguer,  21.  Amposta.  Tarragona. 
Telf.:  (977)  70  14  15.  (Ref  M-398). 

•  Soy  profesor  de  química  y  física.  Me  interesaría 
instrucciones  lenguaje  Logo,  Forth  y  Pascal  para  el 
Commodore  64,  y  en  general  programas  de  aplica¬ 
ciones.  particularmente  sobre  mi  materia.  Escribid 
o  llamad  a  Enríe  Buchaco.  C/  Andrea  Doria,  s/n. 
l.B.  Salvat  Papasseit.  08003-Barcelona.  Telf:  219 
87  46  ó  315  02  03.  (Ref.  31-399). 

•  Vendo  VIC-20  del  84,  20.000  ptas.;  Dállasete 
C2N  (casi  nuevo),  8.500  pías.;  cinta  Graphics.  1.000 
pías.;  cinta  Skramblc.  800  ptas.;  cinta  mgimare 
Park.  400  pías.  Todo  junto.  29.000  ptas.  Llamar  de 
2  a  3  del  mediodía,  preguntar  por  José.  José  Tuches 
Bóveda,  c/  Alonso  Carbonell,  2.  28045-Madrid. 
(Ref  M-400). 

•  Vendo  VIC-20  >  televisión  B/N  12"  marca  Inter, 
listo  para  funcionar,  con  garantía  desde  enero-85. 
dos  manuales,  uno  en  inglés  y  el  otro  en  español,  un 
libro  de  introducción  a  los  ordenadores  por  35.000 
ptas.  al  contado.  Con  instrucciones  en  español  para 
su  uso.  Llamar  sólo  viernes  de  3  tarde  a  9  noche. 
Nemesio  Solis  García,  c/  Pujadas,  265  ático.  08005- 
Barcelona.  Telf.:  303  32  40.  (Ref.  M-401). 

•  Vendo  VlC-20en  perfecto «Udo  por  2d.mxiptas 
+  Guia  del  usuario  del  Vic  ( 1.500  pías.),  todo  junto 
por  22.500  ptas.  también  por  separado.  Regalo 
libro  "acceso  rápido  al  Vic-20"  y  algunos  juegos. 
Manuel  Aranda.  Rio  Sella.  10.  Móstolcs.  Madrid. 
(Ref.  1 1-402). 

contabilidad  64, 300  cuentas,  1 000  ajustes,  también 
vendo  el  cartucho  del  programa  Magic  üisk  por 
juntos  o  separados,  precio  a  convenir.  Agustín 
Rosco  Vázquez.  Plaza  de  la  Merced,  1 1 .  Azuaga. 
Badajoz.  Telf.:  89  03  56.  (Ref  31-403). 

•  Vendo  VIC-20,  ampliación  de  I6K  y  tarjeta 
40/80  caracteres  por  35.000  ptas.  Regalo  juegos  y 
programas.  Antonio  López  Sánchez.  Salado.  3. 2“  D. 
Cartagena.  Murcia  (Ref.  M-404). 

•  Desearía  comprar  Superexpander  +  3K  para  un 
VIC-20.  Precio  razonable.  Los  interesados  llamar 
los  jueves  de  19  a  20  o  escribir  a  Luis  Campoy 


Castro,  c/  Ugarte  Dña.  Maria,  14  A  3“  Tudela 
Navarra.  Telf.:  82  26  15.  (Ref.  31-405). 

•  Vendo  cartucho  Easy  t  ale.  Magia  Dcsk  y  Musa 
machine  o  cambio  por  monitor  FV  o  N.  Valor  de 
compra  40.000  ptas.  y  doy  por  20.000.  También 
vendo  unidad  de  disco  c  impresora  Scikosa  en 
70.000  ptas.  todo  en  perfecto  estado  y  con  instruc¬ 
ciones  en  español.  Contactar  con  Jesús  Benito. 
Telf.:  248  00  38.  Madrid  (Ref.  31-40*). 

•  Vendo  VIC-20  •  ampliación  :K  •  40  progiuni.is 
en  cinta  (Juegos  y  aplicaciones)  +  3  libros.  Todo 
25.000  ptas.  José  Salgado  Herrera,  c/  Donoso  Cor¬ 
tés.  58  1“  D.  28005-Madrid  (Ref.  31-407). 

•  ,  Mención  usuarios  \  I 

por  9.000  ptas.  Perfecto  estado.  Ramón  García 
Alance.  Madrid.  Telf.:  419  66  59.  (Ref.  31-408). 

•  Urge  vender  VIC-20  por  19.500  plus  (piáciita- 
mente  nuevo)  +  cassette  C2N  por  8.500  pías.  +  1 
cartucho  (sargon  II  chess)  por  2.000  ptas.  +  cinta 
indescomp  (Shadowfax)  por  950  ptas.  y  además 
regalo:  15  revistas  Commodore  +  cintas  con  juegos 
+  curso  iniciación  al  Basic.  Rogcr  Uobet  García, 
c/  Numancia,  115-7»  l.\  08029-Barcelona.  Telf. 
(93)  239  81  42.  (Ref.  31-409). 

•  Vendo  Vil  .  (casi  nucvoi 

con  garantía.  Datascttc  (nueva),  unos  90  juegos 

para  aprender  Basic,  un  paquete  de  diskettes  con 
juegos  y  2  joysticks:  -Quick  shot  I,  usado  unas 
veces;  -Quick  shot  2,  totalmente  nuevo.  Precio  a 
convenir.  Dirigirse  a:  Daniel  Garriga,  C.N.2, 
c/  Waldcn.  7.  Sanl  Just  Desvern.  Barcelona.  Telf.; 
372  02  43.  (Ref.  31-410) 

•  I  lesean . npiui  .1 1 1 1 1 

Kb.  para  el  VIC-20,  a  ser  posible  con  la  condición 
de  un  periodo  de  prueba  de  unos  días.  Seriedad 
absoluta  en  el  trato.  Jesús  Cea  Méndez,  c/  Caldas 
de  Reyes,  bloque  D-61,  portal  2-6»  izq.  Telf.:  (986) 
23  18  35.  (Llamar  después  de  las  15  horas).  Vigo-9 
(Pontevedra).  (Ref.  M-411). 

•  Cambo  Commodore  64  poi  Dattass 
ordenador  de  similares  características  (preferible 
MSX)  o  vendo  ambas  cosas  por  59.000  ptas.  Con 
garantía,  conexiones,  adaptador  y  manual.  Envió 
rápido  y  sin  gastos  de  envió.  Francisco  Rocha 
Bctancor.  c/  Carretera  del  Centro.  7.  35017-Las 
Palmas.  Telf.:  (928)  35  35  50.  (Ref.  31-412). 

•  Vendo  orden 

ción  de  memoria  de  8  Kbytcs  con  toda  la  corres¬ 
pondiente  instalación.  Todo  como  nuevo.  Precio 
inicial  25.000  ptas.,  a  negociar  Regalo  de  guía  de 
referencia  del  programador  VIC-20.  Llamar  al  telé¬ 
fono  (93)  371  18  15.  Miguel  Sanchis  Flores.  Calle 
Norte,  63.  3“  2."  Sant  Just  Desvern.  Barcelona. 
(Ref.  M-413). 

•  Vendo  consola  de  sídeo  juegos  \l  \RI.  am  .los 
joysticks  y  7  cintas,  por  17.000  ptas..  nuevo.  Precio 
real:  30.000  ptas.  Llamar  a  Luis  Figucras.  Telf.  (93) 
253  51  19.  c/  Consejo  de  Ciento.  170.  s  B  (Ref. 

31-414). 


amigos  Commodorianos 


C.P .  Provincia... 


Tengo  Cassette .  □ 

Unidad  de  Disco .  O 
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para  intcrcambi _ r_ 

Joscp  Ruvira  i  Sardá.  c/  Dr.  Escayola. 

Iclf.  (93)  891  07  40.  San  Sadurni  de  Noya.  (Ref 
C-6J). 

C-64  en  Máli 
(R'f.  C-64). 

•  Quiero  conlaclar  con  chico-chicas  que  empiezan 
a  programar  en  código  máquina.  Intercambiaría¬ 
mos  experiencias,  información,  eic.  Escribir  a 
Robert  Martin.  Eont,  21.  Cassa  de  la  Selva 
(Girona).  Tengo  un  C-64  (Ref.  C-tS). 

•  Propongo  crear  una  red  de  intercambio  por  telé¬ 
fono  mediante  modem.  Si  alguien  se  lo  desea  auto- 
construir,  puedo  facilitar  esquema  y  conexionado. 
Interesa  conseguir  software  para  intercomunica¬ 
ción  con  modem.  Llamar  al  (93)  333  SO  80.  Pedro 
Margalef.  Cardenal  Reig,  23  -  2"  I*.  08028  Barce¬ 
lona.  (Ref.  Ció). 

•  Apúntate  al  club  "SPECDORE",  para  usuarios 
del  Commodorc  64  y  Spectrum  Respuesta  garanti¬ 
zada.  Para  inscribirse  preguntar  por  Juanvi  en  el 
tel.  (943)  45  10  09,  o  bien,  escribir  a  C/  Prim.  37  -  2“ 
20006  San  Sebastián  (Guipúzcoa).  (Ref.  C-67). 

•  Estoy  interesado  en  ponerme  en  contacto  con 
usuarios  del  C-64  que  posean  algún  programa  de 
traducción  de  textos  potente,  a  ser  posible  en  disco, 
de  inglés  a  español.  Asimismo,  quisiera  conseguir 
las  instrucciones  del  compilador  Pascal  64  versión 
3.0.  Quien  tenga  información  sobre  esto  escriba  a: 
Mariano  Prado  Zorzano.  C/  Albia  de  Castro,  3. 
26003  Logroño.  Tel.  (941)  23  01  54.  Estaría  dis¬ 
puesto  a  comprarlo  o  cambiarlo  por  programas, 
esto  a  convenir.  (Ref.  C-68). 

•  Estoy  interesado  en  intercambiar  programas,  en 
especial  educativos.  También  quiero  entrar  en  con¬ 
tacto  con  profesores  de  EGB,  BUP  y  FP  que  estén 
interesados  en  la  programación,  sobre  todo  si  están 
llevando  alguna  experiencia  en  la  escuela.  Manuel 
del  Arbol  Sánchez.  C/  Arrumbadores,  4  -  4“.  Mon- 
úlla  (Córdoba).  (Ref.  (69). 

•  Se  ha  formado  el  "SINCOM"  Club  de  Spectrum 
y  Commodore  64.  Se  creará  una  revista.  Manda 
sobre  con  tu  dirección  debidamente  franqueado 
para  contestarte  con  la  máxima  rapidez.  Escribid  a 
SINCOM.  Avda.  Virgen  de  Guadalupe.  20  -  6  F. 
10001  Cáceres.  (Ref.  C-70). 

•  Me  gustaría  poder  contactar  con  usuarios  de 
Commodore  64  que  residan  principalmente  en 
Cádiz,  aunque  también  pueden  ser  de  cualquier 

ro  lugar  de  España.  Manuel  Jesús  Sánchez  Men- 


Ielf.:  27  88  44.  Cádiz.  (Ref.  C-71). 

•  En  Granada  hay  un  club  para  toda  España,  para 
unir,  proteger,  premiar  la  creatividad,  confrontar 
su  participación  en  campeonatos  de  los  mejores 
juegos  existentes  y  llevar  a  efecto  cuantas  ideas 
redunde  en  beneficio  de  los  Commodoríanos  que 
tienen  un  modelo  64.  Si  deseáis  amplia  informa¬ 
ción.  sólo  tenéis  que  dirigiros  a  SUPER  CLUB-64 
Apartado  de  Correos  456.  c/  Joaquín  Costa,  6-6 
de  Granada  y  rápidamente  os  remitiremos  amplia 
información.  Te  esperamos  con  los  brazos  abiertos 
(Ref.  C-  72). 

•  Estoy  interesado  en  formar  un  club  de  usuarios 
del  V1C-20,  Oric  almos  y  Spectrum.  Daniel  Roig 
Marchuet.  c/  Castilla,  27,  bajos.  Ibiza  (Baleares) 
(Ref.  C-73). 

•  (Atención  Commodoríanos  de  la  comarca  dc 
Lérida!  me  llamo  Antonio  y  tengo  14  años.  Poseo 
un  C-64  y  desearía  el  contacto  o  comunicación  con 
otros  usuarios  de  C-64  para  el  intercambio  de  pro¬ 
gramas  y  experiencia  (poseo  muchos  juegos).  Soy 
principiante  y  podéis  escribirme  a:  c/  Joan  Mara- 
gall.  96.  Preixana  (Bellpuig).  Lérida,  o  llamarme  al 
teléfono  32  (17  50.  (Ref.  C-74). 

DESEO  CONTACTOR  CON  OTROS 
AMIGOS  COMMODORIANOS 
C-64 

•  Jaime  Pérez  Moreno,  Alamos,  5-4“  B.  Alcalá  la 
Real.  Jaén.  Telf.:  (935)  58  13  38.  Sólo  Urdes  a  partir 
de  las  3,30  de  la  tarde.  Poseo  unidad  de  disco. 

•  Jesés  Angel  Sana  Serrano,  c/  Noya,  5-1“  C.  San 
José  de  Valderas.  Madrid. 

•  Frcddy  M.  López  González,  c/  Puerta  Canseco. 
47-3“  B.  38003  S.C.  de  Tenerife.  Poseo  cinus  y 

•  Miomas  Kowolik.  c/  Sevilla,  21.  Castelldefels 
Barcelona.  Telef.:  664  39  98.  Poseo  unidad  de  disco 

•  F.  Engelberts,  Box  1422,  2970  Emden/W.  Ger- 
many.  Poseo  unidad  de  disco. 

VIC-20 

nón  Faura  I 

bre,  8 


PIRATERIA  DE  SOFT 
...Y  ALGO  MAS 


(Viene  de  pág.  6) 

•  No  me  meto  en  que  haya  profesionales  abusivos  y  otros  que  no.  Su¬ 
pongo  que  de  todos  los  colores).  Ni  cual  porcentaje  de  beneficio  es 
correcto,  ni  con  cuál  comienza  el  abusivo.  Lo  que  sí  sé,  es  que  no  existe 
mayor  abuso  ni  pingue  negocio  que  el  del  pirata  —entre  cinta,  copiador, 
tiempo  empleado  y  sello  de  correos  su  inversión  máxima  (dándole  super- 
largas)  es  de  100  ptas.,  y  eso  para  redondear—.  La  publicidad  del 
producto,  en  los  piratas  no  "profesionalizados"  — en  la  mayoría —  la 
tienen  más  que  hecha  por  ios  profesionales.  Venden  los  programas  entre 
500  y  2.000  ptas.  según  se  trate  de  un  juego  o  de  un  programa  de 
utilidades  caro. 

Si  un  beneficio  de  un  400  a  un  1.900%  no  es  abusivo...  ¡vale! 

V  si  adicionalmente,  estos  señores  intentan  anunciarse  gratuita¬ 
mente  aprovechándose  de  una  idea  como  es  Marketclub  creado  para  dar 
servicio  gratis  e  interesante  a  todo  el  club  commodoriano  nacional... 
bien...  entonces  me  temo  que  nos  están  tomando  el  pelo  a  todos,  si  es  que 
nos  lo  dejamos  tomar. 

•  Los  comerciantes  que  compran  estos  productos  piratas  y  se  limi¬ 
tan  a  doblarles  el  precio,  indudablemente  venden  bastante  por  debajo  del 
mercado  — pero  si  a  beneficios  vamos —  un  100%  no  es  tampoco  nada 
desdeñable. 

•  Si,  ya,  ¿Pero  no  decía  antes  que  están  dispuestos  a  anunciarse  a 
precios  altos  y  ahora  digo  que  intentan  hacer  publicidad  gratuita? 

También  he  hablado  de  mayorías  y  minorías.  Los  que  quieren  anun¬ 
ciarse  son  algunos  de  los  que  les  va  tan  bien  el  tema  que  deciden  “profesio¬ 
nalizarse"  y  “establecerse"  muchas  veces  en  un  apartado  de  correos  y 
contra  reembolso. 

6)  ¿Qué  va  a  pasar  con  Mercadillo?  Lo  hemos  dado  muchas  vueltas. 
Lo  creamos  entre  todos  vosotros  y  nosotros,  con  una  idea  que  funciona  y 
que  no  queremos,  en  absoluto,  destruir  por  culpa  de  unos  señores  “apro- 
i echadillos".  Tenemos  una  lista  de  una  docena  de  nombres  “controla¬ 
dos"  y  esperemos  que  no  sea  necesario  ampliarla,  pero  pedimos  la  cola¬ 
boración  de  todos  vosotros. 

(Pasa  a  pág.  77) 


COMPUTERS,  S.A. 


PAMPLONA:  C/ Alfonso  el  Batallador.  16  (trasera)  -  Tel.  27  64  04  -  Código  Postal:  31007 
SAN  SEBASTIAN:  Plaza  de  Bilbao.  I-  Tel.426237-  Télex:  38095-IART  -  Cód.  Post.  2000A 

¡¡PRECIOS 

ESPECIALES  PARA  COMERCIANTES!! 

COMMODORE  -  64 
COMMODORE  -  16 
ZX  SPECTRUM  -  48 K 
SPECTRUM  PLUS 
QL  SINCLAIR 
AMSTRAD 
MSX  —  GOLDSTAR 

PERIFERICOS,  PROGRAMAS,  LIBROS  NACIONALES,  EXTRANJEROS,  ETC. 
6  MESES  DE  GARANTIA  PARA  ORDENADORES  Y  PERIFERICOS 
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KNTVlE 

m^j  nuestros  *  .  _  „„ries: 


Lectura  de  números 


Jesús  M.  González  t  ria 
CV  Imbe,  5-5"  C  Drchi 
Guecho  (Vizcaya) 


Este  programa  efec¬ 
túa  la  transcripción, 
en  letras,  del  número 
que  se  indique,  con¬ 
teniendo  nueve  carac- 


bn  este  programa,  fundamentalmente,  el  número  pedido  se  con¬ 
vierte  en  una  cadena  y  se  determina  el  número  de  caracteres  que  tiene, 
desglosando  cada  carácter  en  unidades,  decenas,  centenas,  unidad  de 
mil,  decena  de  mil,  etc.,  hasta  centenas  de  millón,  que  es  el  valor 
máximo  que  admite  el  ordenador  en  notación  standard  y  se  compara, 
en  las  sucesivas  subrulinas,  con  las  cadenas  que  indican  su  equivalen¬ 
cia  en  letras,  imprimiendo,  al  final,  estas  cadenas  con  las  variantes  de 
lenguaje  correspondientes. 

1-15  Presentación. 

17-20  Pone  en  vacio  los  caracteres  de  los  números  y  las  cadenas  de 
la  equivalencia  en  letras. 

22  Se  pide  el  número  mediante  un  INPUT. 

24  Condiciona  el  valor  máximo  permitible. 

28  Convierte  el  valor  numérico,  en  una  cadena  y  determina  el 
número  de  caracteres  que  tiene. 

30-60  Desglosa  cada  carácter  del  número  y  lo  va  comparando  con 
los  diferentes  bloques  de  uno,  dos,  tres  y  más  caracteres, 
para  "leer",  respectivamente,  unidades,  decenas,  centenas, 
etcétera. 

90-09  Compara  y  “lee"  las  unidades. 

100-123  . decenas. 

130-150  .  ”  centenas. 

500-502  Variantes  del  lenguaje. 

505-530  Imprime  los  valores  menores  de  mil. 

600-603  Variantes  de  lenguaje. 

605-620  Imprime  valores  menores  de  un  millón. 

700-728  Variantes  de  lenguaje. 

730-750  Imprime  los  valores  menores  de  mil  millones. 

1000-1200:  Subrutinas. 

Indicar,  por  último,  para  este  programa,  que  las  cantidades  de  las 
centenas  se  han  puesto  en  masculino  y  cuando  se  hable  de  pesetas,  por 
ejemplo,  habrá  que  cambiarlo  a  femenino.  (Por  ejemplo,  cambiar 
“cuatrocientos"  por  “cuatrocientas",  solamente  para  el  valor  de  las 
centenas  y  de  las  centenas  de  mil). 


1  REM*****LECTURR  DE  NUMEROS*» 

*«** 

2  REM4*******  ¿6/1/1963  ****•< 

*«*• 


sta  sección  «‘J  ‘j‘.  todos  1 

rifesíu  \ 

Pr°8r  2)  Anclas,  etcétera-  1 
Trucos,  s ugeren^  >  fl|ic¡ellies  1 

7  HabraPparatodos^s  1 

}  los  parttctP  direCCton  \ 

i  p0"Vsc£sn^¡cfls)! 

Lp  -Animar0*’  - 


3  REM**4**4>*****  JMGU  ************** 

**** 

3  PRINT" CCLR3 "  ;  PRINTTHBtb  "  CRVSÜN3LE 
CTUkM[SPC3DE[SPC3NUMEROSl.RVSOFF3 "  PR 
INT : PRINT • PRINT 

6  PR  I  NT  "  EST  E  C  SPC  3  PROGRÑMR  l  SPC  3  P I  DE  [  SPC  3 
UN  L  SPC  3  NUMERO  C  SPC  3  V  C  SPC  3  EFEC  TUR  C  SPC  3 

" : PRINT 

7  PR I N  T " LR  £  SPC  3  ESCR I TURÑ  C  SPC  3  DEL  C  SPC  3 
M I iMO  C  SPC  3  EN  C  SPC  3  LE  TRRS .  "  PRINT 

6  PR  I  NT  "  S I RVE  [  SPC  3  PRRÑ  [  SPC  3 1 MPR I M I R  £  SPC  3 
EN  C  SPC  3  LOS £  SPC  3  TRLÜNE8  £  SPC  3  BRN- "  PR I 
NT 

9  PRINT "CRR!ÜS£SPC3Y£SPC3CÑRTRS£SPC3 
LR  £  SPC  3  CRNT I DRD £  SPC  3  C0RRESP0N- 1  SPC  3 " 

PRINT 

10  PRINT"DI£NTE£SPC3EN£SPC3LETkRSLSPC 3 
V .  T rlMB  I EN  /  PRRÑ £  SPC 3EL  "  ■  PR  I NT 

11  PRINT" HPREND I ZR  JE  £  SPC  3  DE  £  SPC  3LECT 
URR  £  SPC  3  DE  £  SPC  3  NUMEROS  C8PCJEN" : PRINT 

12  PRINT" CRSTELLRNO C SPC 3 PRRR C SPC 3 EXT 
RRNJER0S. "  PRINT 

13  PR I NT " SE  C  SPC  3  HR  C  SPC  3  PUESTO  C  SPC  3  C0 
M0 C6PC3LIM1 TE <  MILI SPC3 MILLONES. " :PRI 


17  FÜRX-0TO3  . .  B*(X>» . H*(X) 

¡NEXTX 

20  FORX-0TO3 : U*íX>-“ " : D*(X3-" " : C*(X) 
:NEXTX 

22  PRINT" NUMERO £ SPC 3 DESERD0 ; .  INPUT 
N 

24  IF  N>9.99999999E*6THENGÜTÜ1100 
26  C*0 ; PRINT : PRINT : PRINT ¡ PRINT 
28  W*-STR*<N> :w-LEN(W») 

30  IFU-2THEN  U*<0)-MI  D*<U»,  2, 1  3  : 00SU 
B90 ■ ÚÜTO500 

32  IFU-3THEN  Uf  (0»MID*(U*.  3. 1 )  •  DSC0 
> -M I D* ( W* , 2 . 1 ) : GOSUB90  GOTO500 

34  IFW*4THEN  U#(0)=M I D*< W* ,  4 , 13  .  D*Í0 
>*MID*(W*.3. 1) :C*Í0)»MID*(W#.2.  1)  G0 
SUB90 

35  I FN«4  T HEN00T 0508 

38  IFW*5THEN  U*<0)-MID*i W* , 5. 1 3 : D*(0 
)»MID*CU*,4. 1) :C«(0)»MID*<W*, 3, D^GO 
SUB90 

39  IFU-5THEN  U*(l >-MID*CW*. 2, 1 3 : G0SU 
B98  GOTO  600 


¡EL  SURTIDO  MAS 
EXTENSO  PARA  EL  VIC-20! 


42  IFU-6THEN  6,  1  >  :  D*<0 

l;  :c*<0;-niB*UJ*.4, i)  -oo 

SUB90 

43  IFW-6THEN  U*(  l)-MIB*(W*r  3,  1  )  B*  (1 
>-mB*(U*,  2. 1 >  :  GUSUB90 : 3010600 

44  IFW07THEN  49 

46  1FW-7THEN  U*<0>-MI  B*lW* ,  7,  1 )  :  B*<0 
>»MIB*<W*,6, l>:C«<0>»MD*CU*,3rl):GO 
SUB90 

47  IFW-7THEN  U*C1 )-MIB*<W*. 4, 1 )  B*< 1 
)*mM(W*,3,  1)  :C*(1)-MD*<W*,2,  1)  :&0 
SUB90 

43  CiÚTO  600 

49  IFWOSTHEN53 

50  IFW-8THEN  U*(0;-NIB*(U*,8> 1 )  ■  B*^0 
)«M1B*<W*,/,  1)  :C*<0)-MB*(U*,ó,  U  -GO 
SUB90 

51  u*u j-mb*<u*,5, n  D*a>-riiB*<u*- 

4/  1)  C*  C 1  r  -P1 1 B*  í  W* .  3  / 1) • OÜSUB90 

52  U*Ú)-I1IBI(WI,2,  1>  OOSUB30  GOTO  7 

53  IFWO9G0TÚ58 

54  1FW-9THEN  U*(02-MIB*LW*j 9/ 1>  B*(0 
>-niB*fW*,8, 1)  C*C0)-MIB*<U*,7i 1)  G0 
SUB90 

35  U*<l)-MB*<W*,6,13B*<i;i-MB*(U*, 

5, 1)  C*<1  J-MB*(W*,4,  1)  GGSUB90 
56  U*(2;-mB*<W*,3, 1>  :B*<2)-HIB*(W*. 

2< 1 ) : GOSUB90 : GOTO  700 

58  IFU-1GTHENU*<0/-MIB*<W*. 10, 1>  B*' 

0)-MI B*<W*, 9,  1 3  : C*(0>-MIB*( W*, 6,  1 )  :  0 
OSUB90 

59  U*(  1  )»niDI(WI,  7, 1 )  ■  L*(  1)«P1ID*(U*, 

6- 1>  C*<1)»MIB*<U*,5,  1);GOSUB90 

60  U*(2,<-rilD*(U*,4,  1)  B*L2>-MB*<W*, 

3,  1 >  Xlk¿)»l1II)*<W»,2,  i;  'G0tiUB9ü  GOTO 

700 

90  I F  N-0T  HENH*  L  0  )  -  "  CERO  " 

91  IFUSÍCJ-" 1 "THENH*(C)-"UN" 

92  1FU*(C)»“2"THENR*<'C)-"BGS " 

93  I  FU*  <  C ) - " 3  " THENR* <  C  3 - " TRES " 

94  I FU* ( C ) ■" 4 “ T  HENR*  ( C  3  *  "  CURTRG 11 

95  IFU*'.C>«"S"THENR*<C>-"CINCO" 

96  IFU*,C)-"6"THENH*<C)«"SEIS" 

97  1FU*<C)-"7"THENh*CC)-"8IETE" 

98  IFU*0:/-"8"THENR*(C.i-"(XHÜ" 

99  t  FU*  C  C  > - " 9 " T  HENH* ( C ) - " NUEVE " 

108  IFB*<C)-"1  "RNBU*CC)-"0"THENR*CC.) 

■"BIEZ" 

101  IFB*(C)-"  1  "RNBU*(C)-"2"THENR*(C) 

-"DOCE" 

102  IFBÍCC3-"  1  "RNBU*(C)»"3"THENR#LC,i 
“"TRECE" 

103  IFB*(C)-"1"RNDU*<C>-"4“THENR*<C> 
•"CRTORCE" 

104  IFB*(C)-"1"RNBU*LCJ-"5"THENR*<C> 
-"QUINCE" 

106  IFB*(C)-"l "RNBU*(C)-“ 1 "THENR*<C> 

="ÜNCE" 

107  IFB*(C3-"1 "RNBU*Í C)>"3"THENB*<C  > 

•"DIECI " 

108  I FB* ( C  3 - " 2 " THENB* ( C  > - " VE I NT  I " 

109  I  FB*  <  C  3  « " 2 “ RNBU* ( * “ 0 " THENR* < O 

-"VEINTE"  B*<C>“" "  ! 

110  IFB*(C)-"3"THENB*(C;-"TREINTRC8PC3 
VCSPC3" 

111  I FB*  <  C ) - " 3 " RNBU*  <  C ) ■ " 0 " THENR* ( C  3 
-"TREINTR"  B*CC>"“ 

112  I FB*  <  C ) - " 4 " THENB*  <  C ) ■ " CURRENTRC SPC 3 
VCSPC3 " 

113  I FB*  k  C  3 - " 4 " RNDU* C C ) - " 0 " THENR* C C 3 
-"CURRENTR" : B*<Cr-" " 

114  lFB*(,C)-"5"THENB*(.C;-"CINCUENTRtSPC3 
YCSPC3 " 

113  I FB* < C )- " 5 "ftNBU* ( C>- " 0 " THENR* C C ; 
-"CINCUENTR" '• B*tC)-" "  ► 


VIC-20  C-64 


PACK  N.  Golf.  Tomates.  Abductor  1 .500 

PACK III  Ascensores.  Amok.  For 
t  alera . 1.500 

PACK  IV.  Damas.  Invasión  Mari 
na.  Persecución . 1.500 

40  COLUMNAS  16K  1800 

CARGADOR  RAPIDO  3  +  3K  o 
16K  1  800 

GEST.  FICHEROS  16K  1.800 

GESTION  FICHEROS  16K  en  40 
col.  Id) . 2.500 

EDITOR  DE  ETIQUETAS  16K  en 
40  col.  (d) . 2.500 

COPIADOR  DE  DISCOS  16K  en 
40  col.  (di . 2.500 

BASE  DE  DATOS  1 6K  en  40  col. 

Id)  . 5.000 

CONT  PERSONAL  16K  (di  3.000 

TOOLKIT  V-1.  Dihuvic.  Letras  do 
bles.  Inversión  pantalla.  3  +  3  K  2.000 


FELIX  IN  THE  FACTORY 
CYBERTRON  MISSION 
SWOOP 
GHOULS 

CARGADOR  RAPIDO 
EDITOR  ETIQUETAS  Id) 

EDITOR  DE  DISCOS  Id) 

COPIADOR  DE  DISCOS  Id) 

GESTION  FICHEROS  Idl 
GEOGRAFIA  Ciudades  de  España  1 .500 
MACROEDITOR  C/M.  Id)  5  000 

EDITOR  C/M.  Id)  3  000 

SINTET1ZADOR  DE  VOZ  Id)  4  500 
SINTETIZA DOR  DE  VOZ  4.000 

DOCTOR  64  Id)  3.000 

DOCTOR  64  2.500 

COMPILADOR  BASIC  a  C/M.  Id)  5.000 
CONTAB.  PERSONAL  (di  4.500 


GESTION  STOCKS 


5.000 

2.500 


Accesorios 

Cinta  C-20  Bobina  antifricción  (5  unidades)  1 .450 

Cinta  C-10  Especial  ordenador  15  unidades)  .  675 

Cinta  C-20  Especial  ordenador  15  unidades)  .  725 

Disco  limpiador  5.25"  con  recambios  2.600 

Diskettes  5.25"  SS/DD  (4  unidades) .  1.940 

Diskettes  5.25"  DS/DD  110  unidades,  estuche  de  plástico)  6.400 
Cartucho  16K  para  VIC-20  .  9.500 


Todos  los  programas  están  garantizados 
contra  defectos  de  carga. 

Envíos  contra  reembolso  sin  cargo 
Solicite  listado  completo  de  programas 
Plazas  libres  para  distribuidores 


[CIIVIEX 

ELECTRONICA 


1 16  IFB*<C>*"6"THENB$<C>»‘,SESENTfiCSPC] 
VCSPCr 

117  lFD*(C)»"6"HNDU*<C)-M0"THENft*<C> 
““SESENTR" : “ 

116  I FB$ ( C  7  * " 7 " THENBí <  C  >  * " SETENTR [ SPC ] 


116  IFBí<C7=“7"RNBU*<C>-"0"THENR*(C> 
«"SETENTR" 

120  I F  B8 1 C  7  ■  "  8  "  T  HENB*  <  C  >  •  "  GCHENTR  C  SPC  ] 


121  IFB*':C7«"8"RNBU$<C7»"0"THENR*(C7 
■  “OCHENTR"  B*(C7-"M 

122  1 FB*  <  C  7  « “ 3 " THENBí ( C  > - “ NÜVENTRC  SPC ] 
YCSRC]" 

123  IFBi(C.*“"3"HNBUÍ  (C7»"0"THENR$(C> 

■" NOVEN TH"  Bí<C7-*"' 

130  IFCíCC)*1'! "THENHÍ<C)*"CIENTQCSPC] 


131  IFCí<C7»"l,,RNBBí<C7»"0,,RNBU$(C7» 
"0"THENRf(C>»"ClEN"  H$<C>»"“ 

132  I F  Cí  ( C  7  •  "  2  " THENHÍ ( C  7  ■  " BClSC I ENTOS 
CSPCJ" 

134  IFCÍ(C7-"3"THENHÍ(C>-“TRESCIENT0 
SCSPC]" 

136  IFCí (C7* "4 "THENHÍ <C7»" CURTRGCIEN 
TOS C SPC 3" 

136  IFCí<C7»"5 11  THENHÍ (  C  7  »  "  ClU  I N I  ENTOS 
CSPC3 " 

140  IFCÍ<C7»"6"THENHÍ<C7«,,SEISCIENT0 
SCSPC]" 

142  IFCí<C7»"7“THENHÍCC7»"SETECIENTO 
SCSPC]" 

144  IFC»(C7«"6"THENHÍ(C7»,,GCHOCIENTO 
SC SPC J" 

14o  IFCí(C7-"9"THENHíCC7*"NOVECIENTÜ 
SCSPC]" 

143  C-C+l 
156  RETURN 

SOO  1 FU*  <  0  7  ■  " 1" THENHÍ C O  > - “ UNO “ 

502  I FU* ( 0  7 * " 1" HNBBí C  0  > * " 1" THENBí  C  0 7 
*" CSPCJOHCECSPC] "  HS<07»"" 

503  PRINTH*'.0>,BÍ10)/R*C0) 

510  F0RX=1 T04 : PRINT :  f€XTX 
520  OOSUB  1000 

330  GOTO  13 

606  IF  UÍ<l;»"i"RNl;B*a>-,‘"HNBC*a>» 

"  "THENft#a>»“" 

COI  IFUÍC07»"  1 11 1  HENHÍ  l  Ú  7  ■  "  UNO  " 

603  IFU$<07*" 1  "RNBDÍ <0>H"  1  ''THENBÍ(0> 
-'CSPC]ONCE"  Rí<0>-"“ 

665  PRINTHÍ<17,BÍ<17.HÍ<17,  "CSPCJML 
CSPC1";HÍ<0j;Fí<0>,RÍ<0> 

61Ú  F0RX*1 TOC : PRINT : NEXTX 
626  OOSUB 1000 
630  GOTO  13 

700  Mí*"CSPC]MILLÜNESlSPC]"  NÍ*"CSPC] 
MILCSPC]" 

71Ó  IF  Uí<  1  >*"0"HMBDÍ<  1  7*,,0"RNBCí<  1  > 

•  “0*‘THEN  Ní*"" 

715  IFUi'.  l>-Mr'RNBB*a)-"0"RNBCi<n- 
"3"THENHi< 1 7»" ” 

720  IFUí<2 1  "HNBBÍ <27="  1  "THENBÍC27 
»"CSPC]ONCECSPC]"  Ri<2)-"" 

725  IFUÍC27-" 1 "HNBBK27»" "RNBCÍ (27»" 

“  THENHÍ  C  2  7 • " C  SPC ] UN [ SPC ]M I LLON  C  SPC ] " 
Mí*  "  " 

727  I  FU*  (  0  7  • ' "  1"  THENHÍ  í  0  7  *  "  UNO  " 

728  IFUÍ(07*"1 "HNBBí (07*" 1 "THENBÍ  (07 
■  " CSPC JÜNCE"  Rí<07=" " 

736  PRINT HÍ(27,Bí(27.Hí(27.rií,HÍ(l); 
Bía7,Hí(17,Ní,HI(07.í;$(07,Hí(0; 

740  F0RX-1T05  PRINT  NEXTX 
736  OOSUB  1006 
760  GOTO  15 

1060  PR I NTLHRí ( 1 6  7 . " PRRR C  SPC ] CONT I NU 
RR  C  SPC ] PULSRR l SPC ] TECLR " 

1610  GETXi: IFXf*" " IHEN1010 


1020  RETURN 

1100  PRINT"CCLRJ"  PRINT  PRINT 
1 1 20  PR I NT  TRt  1 6  7 " 7  E  C  SPC ] RECUERBG  C  SPC ] 

ÚUE  C  SPC  ]  EL  C  SPC  ]  NRVOR  "PRINT 

1130  PR I NT  TRB  í  ó  7 " NUMERO  C  SPC ] OUE  C  SPC ] 

ES C SPC ] CRPR2 C SPC ] BE C 2 SPC ]  "  :  PRINT 
1140  PR I NT  TRB ( 6  7 " ESCR 1 B I R  C  SPC ] BEBE  C  SPC ] 
TENER  C  SPC ] NUEVE "  PR I NT 
1136  PRINTTRBcbV'BIOITOSCSPCICOMOCSPC] 
MRXIMO. "  PRINT 

1 1 60  PR I NT T RB  <  6  > " EST  E  C  SPC ] ORBENHBOR  C  SPC ] 

SOLO C SPC ]RBMI TE"  PRINT 

1170  PR1NTTRB(67 “ESTÜSCSPCJBIGITÜSCSPC] 

ENCSPCINOÍRCIONCSPC]'1  PRINT 

1160  PRINTTRB'.fc^  “  STRNBÑRB .  PRRR  C  SPC  ]  V 

HLÜRESCSPCIMRYORES"  PRINT 

1130  PRINTTliBCóJ "SECSPCIUTIL12RCSPC] 

LRC3PCJC1ENTIFICRCSPCIQUE"  PRINT 

1200  PRINT  TRB(6) "YR. N0CSPC1TIENECSPC] 

IHNTHCSPi:  JÜÑRCIR.  11 

1210  PRINT : PRINT  PRINT : GOSUB l 000 ■ OOT 
013 


_ VIC-20 _ 

Monitor  de 
lenguaje  máquina 

Os  envío  una  nueva 
colaboración,  consis¬ 
tente  en  un  útil  pro¬ 
grama  para  el  VIC- 
20,  compatible  tam¬ 
bién  con  el  C-64. 

Se  trata  de  un  pequeño  monitor  de  lenguaje  máquina  que  presenta 
una  importante  novedad  con  respecto  a  otros  programas  similares  ya 
publicados:  permite  introducir  los  programas  directamente  en  ensam¬ 
blador,  evitando  el  engorro  y  la  pérdida  de  tiempo  y  paciencia  que 
supone  tener  que  traducir  los  mnemónicos  y  las  direcciones  hexade- 
cimales  a  una  ristra  de  números  decimales  sin  sentido  aparente. 

Se  ha  intentado  dotar  al  programa  de  las  más  necesarias  caracterís¬ 
ticas  que  ha  de  poseer  un  monitor  básico,  sin  intentar  ofrecer  sofisti¬ 
caciones  no  excesivamente  útiles  que  gastarían  demasiada  memoria. 
Queden  éstas  para  otros  programas  comerciales  como  el  cartucho 
"Machine  Languaje  Monitor"  para  el  V1C  o  “Hes  Mon  64"  para  el 
C-64. 

Se  han  seleccionado,  por  tanto,  cuatro  funciones  básicas,  accesibles 
a  través  de  un  menú  que  se  presenta  en  pantalla  nada  más  ejecutar  el 
programa: 

—  Ensamblar  (introducir  programas  en  ensamblador) 

—  Desensamblar  (traducir  a  ensamblador  un  trozo  de  memoria) 

—  Grabar  programas  en  cinta 

—  Cargar  programas  desde  cinta 

Vamos  a  describir  brevemente  cada  una  de  estas  posibilidades: 

—Ensamblar:  Cuando  se  pulsa  en  el  menú  la  opción  de  ensamblar, 
el  programa  pide  la  dirección  hexadecimal  inicial  y  final  de  entrada 
del  programa.  La  segunda  dirección  no  hace  falta  que  sea  exacta 
(normalmente  uno  no  sabe  exactamente  cuántos  bytes  va  a  gastar). 
Una  vez  dados  los  datos,  el  programa  escribe  la  primera  dirección  y 
aguarda  a  que  el  usuario  teclee  la  correspondiente  instrucción  en 
ensamblador;  cuando  se  pulsa  "return”  el  programa  valora  la  ins¬ 
trucción,  y  si  no  es  correcta  escribe  "error",  y  permite  una  nueva 
entrada.  La  instrucción  puede  ir  con  o  sin  espacio  de  separación  entre 
el  mnemónico  y  el  resto  de  la  linea.  Ejemplo:  el  programa  entiende 
igual  LDASEA27  que  LDA  SEA27. 

Una  vez  aceptada  una  linea  el  programa  escribe  la  dirección 
siguiente  y  espera  al  usuario.  Se  continúa  así  hasta  que  por  fin, 
cuando  el  programa  se  ha  terminado  de  introducir,  se  teclea  la  pala¬ 
bra  "FIN”.  Entonces  el  programa  dará  por  terminado  el  proceso  de 
ensamblaje,  y  presentará  una  nueva  demanda  de  entrada  de  otra 
dirección  inicial,  por  si  se  deseara  continuar  ensamblando  en  otras 
zonas  de  memoria.  Si  se  pulsa  "return"  se  vuelve  al  menú. 

NOTA:  Aunque  el  programa  detecta  errores  cometidos  en  la 
entrada  no  conviene  hacer  entradas  absurdas  como  por  ejemplo 
introducir  una  cadena  de  menos  de  tres  caracteres  o  algo  similar 


Víctor  Echevarría  Ecenarro 
C/  Egaña,  5-3 •  Drcha. 
miO  Bilbao 
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para  ver  que  pasa  ,  porque  en  este  caso  el  programa  se  interrumpirá 
por  un  illegal  quantity,  y  habrá  que  activarlo  de  nuevo,  lo  cual  no  es 
muy  agradable. 

Desensamblar:  Cuando  se  elige  esta  opción  el  programa  pide 
dirección  inicial  y  final  (en  hexadecimal)  y  procede  seguidamente  al 
desensamblado.  Si  se  pulsa  una  tecla,  el  programa  interrumpe  el  lis¬ 
tado  hasta  que  se  pulse  otra  cualquiera  (esto  resulta  útil  si  se  desea 
copiar  algunas  instrucciones  antes  de  que  desaparezcan).  Si  la 
segunda  tecla  pulsada  es  "return”.  el  programa  pide  de  nuevo  una 
dirección  inicial,  por  si  se  desea  desensamblar  otras  áreas  de  memo¬ 
ria.  En  caso  negativo  un  nuevo  "return"  nos  devolverá  al  menú. 

—Grabar  en  cinta:  Al  elegir  grabar  un  programa  que  tengamos  en 
memoria  se  piden  las  direcciones  inicial  y  final  del  programa  y  el 
nombre  que  queremos  ponerle,  y  se  graba  sin  más  problemas. 

—Cargar  de  cinta:  Se  pide  el  nombre  del  programa  que  queremos 
cargar,  y  cuando  se  localiza  en  la  cinta  se  carga  en  las  mismas  direc¬ 
ciones  en  que  fue  grabado. 

Estas  dos  últimas  opciones  podían  haberse  realizado  mediante  las 
rutinas  SETLFS.  SETNAM,  LOAD,  y  SAVE  del  Kernal,  pero  desde 
Basic  es  más  sencillo  c  igual  de  efectivo. 

El  programa  fue  escrito  para  un  VIC-20  con  3K  de  expansión 
aunque  vale  igual  con  el  superexpander,  o  con  cualquier  otro  cartu¬ 
cho  (8K  o  16K).  De  hecho,  cuanta  más  memoria  se  tenga,  de  tanto 
más  espacio  se  dispondrá  para  situar  los  programas  que  se  creen  en 
lenguaje  máquina,  sin  invadir  el  Basic.  (Si  se  usa  sólo  el  cartucho  de 
3K  conviene  proteger  el  área  que  deseemos  utilizar  para  los  progra¬ 
mas,  con  objeto  de  evitar  sorpresas  desagradables). 

Pienso  que  el  programa  vale  también  para  un  064,  cambiando  un 
número  de  la  linea  135:  en  la  parte  final  de  esta  linea  dice:  "1F 
PEEK(  197)- 1 5  THEN...".  Este  quince  significa  la  tecla  "return"  en  el 
VIC-20.  En  el  C-64  hay  que  cambiarlo  por  un  uno.  No  he  compro¬ 
bado  el  funcionamiento  del  programa  en  un  C-64,  pero  como  no  se 
hace  referencia  a  direcciones  específicas  del  VlC  no  debería  haber 
problemas.  En  todo  caso,  cualquier  usuario  del  C-64  familiarizado 
mínimamente  con  su  máquina  puede  solventar  cualquier  pequeña 
dificultad  que  pudiera  persistir,  y  que  yo  he  pasado  por  alto. 

Por  si  alguien  quiere  añadir  alguna  opción  más  (como  volcado 
hexadecimal,  cambio  de  base  de  números,  o  ejecución  del  código 
máquina)  que  yo  no  he  considerado  suficientemente  interesantes  por 
la  relación  utilidad  que  presentan-memoria  que  gastan  (dado  aue 


conviene  que  haya  el  máximo  de  memoria  libre  para  los  programas  en 
lenguaje  máquina),  aqui  señalo  algunas  partes  importantes  del 
programa: 

9— Declara  la  matriz  P$,  y  carga  en  ella  los  gráficos  de  los  trece 
modos  de  direccionamiento. 

65— Línea  de  entrada  de  las  instrucciones  en  ensamblador.  No  se 
ha  utilizado  un  simple  "input”  porque  al  introducir  una  instruccin  en 
algún  modo  de  direccionamiento  indexado  sólo  aceptaría  la  cadena 
anterior  a  la  coma,  dando  un  extra  ignored  por  el  resto.  Ei.:  si  se  mete 
STA  $22FC,X  aceptaría  STA  S22FC  e  ignoraría  el  resto. 

75 — Si  ha  habido  algún  error  la  variable  FL  estará  a  uno. 

90-125— Interpretan  la  instrucción  y  deciden  su  modo  de  direccio¬ 
namiento. 

250,  260,  270,  280,  subrutinas  auxiliares  de  la  90. 

1 30-255— Desensamblado. 

300 — Cambio  hex-dec. 

350 — Cambio  dec-hex. 

400 — Crea  fichero  en  la  cinta. 

470 — Carga  fichero  (detecta  errores  por  la  variable  ST). 

500-540 — Mnemónicos  del  6502/6510  seguidos  de  una  letra  que 
designa  su  modo  de  direccionamiento. 

600-610— Cadenas  (que  se  cargan  en  la  matriz  P$)  que  son  los 
gráficos  de  los  distintos  modos  de  direccionamiento. 

Considero  que  este  monitor  de  lenguaje  máquina  constituye  una 
Util  herramienta  para  quienes  nos  iniciamos  en  este  lenguaje,  y  es  una 
buena  ayuda  para  introducimos  en  los  entresijos  de  nuestras  máqui- 


0  REM  <C>  VÍCTOR  ETXEBHRRIR  1985 
3  DIMPí t  123  ;  FOR1*0TO255  REÑLiEi  ■  NEXT  ; 
FÚRI*0TG12  REfthPt ( l )  ■  NEX'T  ■  RESTORE 
10  PR INT " [ CLR 3  C  RED  3 [ RVSÚN3  C 4CRSRR J  C 2SPC ] 
MONI TÜRtSRC JPEÍ2SPC 3 ÍCRSR1U  fRVSOFF 3 " 

PR I NT " [ RED ] [ RVSÚN 3 í CRSRR  3  C  2SPC3LENG 
UR JE  í SPC  3  MRQU I NH [ 2SPC 3 [ CRSRD  3  f  DLU  3  í RVSÜFF 3 


11  PR I NT " C  7 CRSRR 3 -MENU- [ 2CRSRD  3 " 


/  ñ I 

-/ni 
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15  PR I  NT  "  C CRSRR D 1  ->  EN3HMBLRDÜ *'  PRINT" 

C  CRSRR  1  2  )  DESENSRMBCRDO " 

¿tí  PR  I  NT " C  C RSRR 1 3  <  GRRBRR  C  SPC 1 EN [ SPC  J 
C I NTH " : PR I NT " C CRSRR 3 4 > CRRGRR í SPC 3 DE C SPC 3 
C I N TFT  PR I NT " t CRSRR 3 5 > F I N£ CRSRD 3 " 

25  GETR* • IFR*=" "THEN25 
27  TT-VFiL<fi*> ; IFTT<1QRTT>5THEN25 
30  IFTT-5THENEND 

35  I F T T *4 THEN I NPUT “ NOMBRE "  <  W*  G0TÚ47 


4tí  B-tí  IS-" " • I NPUT "DESDE" < I*  IFIf-"" 
THEN 1 tí 

45  L*- 1  * • GOSUB300 : I *L 

50  INPUT"RRSTR" <  S*  L*-S* : GOSUB300 ■ S» 

L 

55  ONTTGÚTO60-130-40U 
60  F0RK-1T0S:  I-I  +  B  IFI>STHEN60 

62  K*I : L*I : GGSUB350 : I*=L* 

63  PRINT1*+"CSPC1"<  R*="" 

65  GETX*  IFX*OCHR*C13:>THENPRINTX*- 
I  FX*OCHR*  <.  ¿0  ) THENRB-RB+XB  GGT065 

66  IFX*=CHR* <20 ) THENRí-LEFT* < R* - LEN( 
R*)-l)  G0TÜ6S 

67  PRINTCHR*< 13) - 

63  IFR*3"FIN"THENK=SGÜTO80 
70  GOSUB90 

75  1FFLTHENFL-0  PRINT"ERRÜR. " -G0TÚ63 

80  NEXT 
85  GOTG40 

30  T»LEN(R*>  RR*=LEFT*<.R*-3.> 

31  0NT-2G0TQ33- 35-35- 97- 97- ltítí- ltítí- 1 
10-110 

32  FL-1  RETURN 

93  ÜM"H"  B»1  GÜ8UB250  GOSUB260 ; RETU 
RN 

95  IFRIGHTfCR*- n="R"THENG*3"B"  B-l 
GOSUB250  GOSUB260 - RETURN 
3o  G0TCI32 

37  IFNIb*CR*-T-S-l>-"r,THENG*3"D"  b- 
¿■GÚSUB750  RETURN 

98  IFMID*(R*< T-2- 1 >="*“THENG*""C "  B» 
2 : GOSUB750 : RETURN 

99  GÜT092 

1 títí  IM1ID$'Ri-T-3- 1;“"#"THENÜ*-"D"  B 
-2 • GQSUB750 ■ RETURN 

ltíl  1 F  LEF  T*  (.  R  * ,  1  >  - "  B  "  RNDRRíO "  B I T "  TH 

ENG*=" I "  B=¿  UÜSUB700 : RETURN 

103  IFRIGHT*';R*-2>*"-X"THENQ*-"E"  B- 

2 ■ T-T-2 • GOSUB750 : RETURN 

105  IFRIGHT*(R*-2)="-V*'THENQ*«"F"  B« 

2 :  T=T-2  GUSUB750  •'  RETURN 

107  IFMID*(R*-T-4, 1;-"*"THENQ*«"J"  B 
=3  GO3UB750 : RETURN 

108  GÜTÜ92 

110  IFRIGHT*i:Rí,2>«',-X"THENÜ$-"K"  -B« 

3 • T=T-2 ' GÜSUB750 • RETURN 

113  IFRIGHTS'.kí-3>=".>- Y"THENG*-"H"  B 

«2  T-T-3 • G0SUB75U  RETURN 

115  IFRIGHT*CR*- 2)*"  -  Y" THENÚ*="L " : B= 

3 :  T-T-2 • GOSUB750 : RETURN 

117  IFRIGHTííRí- 3>*"-X3 "THENG**"G"  B 

3 2  T-T-3 = GOSUB750  RETURN 

123  IFMID*<R*- T-6- 1 >=" ( "THENG$="M"  B 

-3  T-T-l  GÜSUB750  RETURN 

125  G0TÚ32 

130  FÜRK-ITOS  I-I+B  IFI>STHEN140 
133  K-I  L-k  GÜSUB350  I*=C*  GOSUB150 
135  PRINT I*+"[SPC]"+R*  IFPEEM  198-»0 
THENPOKE198-0  URIT198, 1  POKE198-0:  IF 
PEEK O 97 ) - 1 5THENK-S 
140  NEXT  •'  GOTG40 

150  T-PEEKCI;  FORX-0TÜTRERDE*  NEXT: 
RESTORE : 1FE*-" "THEN£*-"???R"  B=1 
155  RRí-LEFTí'.E*- 3)  N*=RIüHT*tE*< 1  i ■ 
Z=RSC(N*)-b5 : IFZ<2THENR*-RR*+P*CZ> : B 
-1  RETURN 


160  IFZ>8THENB=3 ; G0T01 75 
163  B=2 

175  FORD-B-lTOlSTEP-1  V=PEEK<H-D>  V* 
2  IFLEFT*<E*-  1  )*"B"ÑNDRR*0"BIT  "THEN 
GOSUB800 

178  L-V  GUSUB350 ■  V*=RIGHT*CL*- V->  U*- 
U*+Y*  NEXT 

180  Rí=RR*+P*<Z^+U*  U*-""  RETURN 

250  FORX-0TO255  REHDE*  IFE*-RR*+G*TH 

ENPÜKEI-X  BR-1  X-256 

¿55  NEXT • RESTÜRE  RETURN 

2oÜ  IFBRTHENBh-M  RETURN 

265  FL-1  RETURN 

270  FÜRÜ-lTÜB-1  NI*t11Uí'.KÍ  (.  T+l /-¿i*U 
,2) :L*=N*GOSUB300:POkEI+O-L 
275  NEXT  RETURN 

280  N*=RIGHT*íR*-4/  L*»N*  GOSUB300 : B 
R-L 

285  I FBR> I ♦ 1 RNDBR- 1 - K 1 281 HENPÜkE I * 1 
-BR-I-2 •GÜT0235 

230  IFBR-<I+1 HND 1 + 1 -BR< 1 23THENPÚKE I + 
1- 255-1- 1+BRG0T0235 
293  FL-l 
295  RETURN 

300  H-LENíL*.'  ■  L-0  '  FÜRC-H-1TÚ0STEP-1 
310  W=RSC01ID*(LÍ-  H-C- 1 )  )-4tí  :  IFW>9TH 
ENW-W-7 

320  L-L+W416TCNEXT 
330  RETURN 

350  L*=""  F0RH=8T03:G«INT<L/16)  H=C- 
1640 

360  L*=ÜHR*<R+48-7*<fi>9i  )+L*  •'  L-G :  NEX 
T : RETURN 

400  I NPUT " QUE C SPC 3 NOMBRE" - Wl 
410  0PEN9- 1  - 1  - W* 

415  PRINT"GRHBHNDOCSPC] " - W* 

420  PklHTIt&j  1 
430  FORK=ITOS 
440  PRINTB9- PEEK<K) 

450  NEXT 

455  CL0SE9  =  PRINT "PROGRRMHf SPC JGRhBHD 
0. "  FÜRCH-0TÜ2000 : NEXT  =  GOTO 1 0 

470  OPEN3-1-0-W* 

471  PRINT“CRRGRND0CSPC3 " - Wf 
473  INPUT49-I  J=0 

475  INPUT49, K 

477  IFSTO0TREN485 

480  POKEI+J-K  J-..T+1  :QOT0475 

485  IFST-64THENP0REI+ J - K : G0T0435 

430  PKI NT "ERROR! SPC 3ENL SPC  JLHl SPoJLl 

NTH. "  FÜRCH-8TÜ2000:NEXTOOTU10 

4 95  CLÜSE9 ■' PRINT"PR0GRRMH[SPC3CRRÜHD 

0.  " : FÜRCH-0TO2000 ; NEXT  GOTO 1 tí 

500  DRTRBRKfi , ORRG -  -  -  - ÜRRC - RSLC - 

503  DRTRPHPR-ORRD-RSLB- - -ORRJ-RSLJ 

505  DRTR - BPL I  - ÜRRH -  -  -  -  ORRE - RSLE -  - CLC 

R-ORRL-- • - ORRK 

507  DRTRRSLK- , JSRJ-RNDG- - -BITC-HNDC- 
ROLC- -PLPR-RNDD 

510  DHTRRÜLB- -BITJ-RNDJ-RULJ- -BMII-R 
NDH- , - -RNDE-ROLE- 

513  DRTRSECR- RNDL, -  - -RNDK-ROLK- -RT1R 
-EORG, -  - -EORC 

515  DRTRLSRC, -PHRfl-EÚRD-LSRB- - JMPJ-E 

ORJ - LSR J , - BVCI , EORH - EORE 

5 1 7  DRTRLSRE -  - CL 1 R , EORl _ EÜRK - LSRK 

-  -  RTSR - HDCG -  -  -  - RDCC - RORC -  - PLRR 
5¿0  DRTRRDCD.  RORB -  -  JílPM ,  RDCJ  -  ROR J ,  -  B 
VSI-RDCH, -  - , RDCE - RORE -  -  SE 1 R 
523  DRTRRDCL - , -  - RDCK , RÚRK - , - STRG , , - S 
TVC-STRC-STXC- -DEVR- - TXhR, -STVJ 
525  DRTRSTRJ- STXJ- - BCCI , STRH- , - STVE. 
S1RE-STXM0NITÜR  L.M. -TXSR- -  - STRK 
527  DRTR- -LDVD, LDRG - LDXD -  - LDVC - LDRC - 
LDXC- -TRVR-LDRD-TRXR, -LDVJ-LDRJ 
530  DRTRLDXJ- -BCSI-LDRH, --LDVE-LDRE- 
LDXF- -CLVR-LDRL- TSXR- -LDYK-LDRK 
533  DRTRLDXL- -CPVD-CMPG- - -CPYC-CMPC- 
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order*dor  Commodore  ó4  Te  abre  las  puertas  I 
a  urJnundo  de  creatividaqy  diversión  donde  r m 
ha/más  límite  que  el  de  ju  propia  í magmaciórl 
Diseña  y  dibuja  a  mano  tizada  o  utilizando 
J  biblioteca  de  figuras  geométricas.  Con  una  f 
paleta  de  16  colores  sóidos  que.  mediante 
variaciones  de  trama,  ¡proporcionan  hasta 
128  combinaciones  pésibles.  Con  8  "pinceles  * 
distintos,  zoom  ( efecto  lupa]  para  retocar 
detalles,  efecto  espejo  Conserva  tus  dibujos  in 
disco  o  cassette.  Imprímelos  o  incluyelos 
en  tus  programas  / 

Con  KOALA  PAq elegido  "Periférico  del  Aje¬ 
en  Estados  Unidas,  se  suministra  el  prograrm 


te?  Koala  Pad  TouchTableti 


1.  Di «« 

rS 

‘£5 

I  Lioe 

Wm 

|l.»« 

I  V 

BECC, , IHYH,CP1PL,IiEXR,  ,CPYJ,Cf1PJ 
535  BHT  HliECJ  -  ,  BNE I  -  CMPH ,  ,  LUPE  -  DECE 

-  - CLDH, CHPL , . CMPK , DECK i , CPXIl 
53?  DPTRSBCG, , ^CPXC-SBCC, INCC, , JNXfi, 
SBCD,  NÜPH-  ,  CPXJ  i  SBCJ ,  INCJ-  ,  BEÚI 
540  DHThSBCH,  , , ,  SBlE ,  INCE,  /  SEIiri,  3BCL 
- 3BCK, INCKi 

600  JjHIHi  "CSPCJft",  “£SPCJ*“,  "CSP Cl«9" 
j  "  1 3PC  J  $  [  ¿oPC.  ] ,  XC  4CR3kL  ] '  V  [  SPC  i  *[  2SPC  3 
- YC4CRSRL SPC  3  <  *  C 2SPC 3 , X ) £ 5CRSRL 1 
" - " t SPC 3 <  S C 2SPC  3  >, V  C  5CRSRL 3 " 

610  DftTfi"CSPC3*“. "CSPCJ*", "[SPC3$C4SPC3 
i  X 1 6CRSRL ] " , " [ SPC ] *  C  4SPC ] , VCbCRSRL ] " 

. " í SPC  3 1 i C  4SPC 1 ) 1 5CRSRL J " 

?U0  GÚSUB250  GDSUB280  GOSUB260  RETUR 
N 

750  GOSUB250 • UÜSUB270 : GGSUB260 : RE TUR 


C-64 


Busca  +  List 
y  grabar  C/M 


(iuillermo  Som  Cerezo 
C/  Animas ,  2-1 •  Izqda. 
■\'erja  (Málaga) 


Soy  fotógrafo  y 
tengo  una  tienda  (pe¬ 
queña)  para  vender 
carretes  y  otras  cosi- 


modore  64  desde  mayo  de  1983,  antes  i 
1983). 

Lo  uso  para  todo:  existencias,  contabilidad,  juegos  y  sobre  todo 
para  acostarme  después  de  las  tres,  algunas  noches. 

La  revista,  en  general,  está  bien,  pero  noto  que  falláis  mucho  en  los 
listados,  hay  “demasiados"  errores  de  imprenta.  Y  algunas  veces 
cuando  lo  rectificáis,  no  lo  hacéis  bien,  al  menos  eso  me  parece  en  el 
programa  de  conversión  del  Kernal,  aparecido  en  el  n°  5  y  rectificado 

Creo  que  en  la  linea  220  no  debería  estar  el  D=D+1,  al  menos, 
cuando  lo  quité  me  funcionó  el  programa. 

Pero  en  fin,  fallos  tenemos  todos  y  siempre  se  procura  hacerlo  bien. 

Otra  cosida  que  no  veo  bien  es  que  publiquéis  un  programa  que  con 
anterioridad  ha  aparecido  en  otra  revista. 

En  el  caso  del  procesador  de  textos  del  último  número,  (diciembre 
n®  10). 

Este  mismo  programa,  en  versión  inglesa,  apareció  en  Micro- 
Sistemas.  precisamente  en  el  número  de  febrero,  con  el  cual  salió  la 
revista  vuestra. 


Os  envío  un  programa  compuesto  de  dos  rutinas  que  pueden  ser  de 
utilidad  a  la  hora  de  corregir  y  repasar  los  listados  de  esos  programas 
largos,  que  casi  siempre  nos  dan  problemas,  bien  por  haber  omitido 
algo,  bien  por  haber  puesto  algo  de  más. 

La  primera  parte  del  programa  que  os  mando  es  un  “busca  lineas". 
La  función  que  hace,  es  precisamente  eso,  buscar  lineas  tras  las  ins¬ 
trucciones  goto,  gosub  y  then. 

Esta  primera  parte  incluye  las  lineas  63000  a  63150. 

La  segunda  rutina  es  para  listar  los  programas.  Podréis  decir  que  es 
más  fácil  usar  el  "list".  pero  las  ventajas  que  se  obtienen  con  esta 
rutina  son  las  siguientes: 

Podemos  ir  viendo  (o  listando)  linea  por  linea  hasta  que  pulsemos 
una  tecla,  nos  evitamos  así  tener  de  detener  el  listado  normal  o  el  ir 
listando  cada  linea  por  vez. 

Además,  tenemos  la  ventaja  de  que  los  caracteres  se  vayan  impri¬ 
miendo  poco  a  poco  gracias  al  bucle  de  retardo  de  la  linea  63750  la 
rapidez  de  imprimir  los  caracteres  depende  del  valor  contenido  en  la 
variable  PA.  Cuanto  más  alto  sea  el  número,  más  lentamente  se  irán 
imprimiendo  los  caracteres. 

Podemos  controlar  el  valor  del  “PA"  bien  modificando  el  que  se  le 
asigna  en  la  linea  63500,  o  bien  ai  pulsar  la  tecla  de  función  fl  la 
reducimos  en  10  unidades,  o  bien  al  pulsar  f7  lo  aumentamos  en  10 

Lineas  63782  y  63784. 

Pero  no  acaba  aquí  la  cosa. 


También  podemos  ir  listando  “hacia  atrás"  pulsando  el  signo  ( — ) 
menos. 

El  programa  listar  va  desde  la  linea  63500  a  la  63950,  aqui  se 
incluye  una  subrutina  para  asignar  las  palabras  Basic  a  la  variable 
TKS<x).  para  luego  convertir  los  tokens  en  palabras. 

Esta  subrutina  está  entre  las  lineas  63900  a  63940. 

Este  programa  se  puede  añadir  a  otro  ya  existente  en  la  memoria 
cambiando  los  punteros  de  inicio  del  Basic: 

Poke  43,  Peek  (45)-2:  Poke  44.  Peek  (46)  se  carga  estas  rutinas  y  se 
vuelve  a  dar  los  valores  originales  a  estas  dos  posiciones,  que  suelen 
ser  I  para  la  posición  43  y  8  para  la  44. 

Para  poder  usar  estas  rutinas  en  otro  ordenador  distinto  al  C-64.  se 
han  de  modificar  los  valores  de  SA. 

En  la  linea  63010  haciendo  SA=Peck(44)*256+Peek(43)-l 

Y  en  la  63500  con  SA=Pcck(44)*256+Pcek(43)  y  en  la  linea  63770 
cambiar  el  valor  1904  por  el  correspondiente  a  ja  dirección  de  la 
pantalla  (8142  para  el  VIC  20  no  ampliado). 

El  principio  de  estas  dos  rutinas  está  en  la  forma  en  que  los  Com- 
modore  almacenan  las  lineas  de  los  programas. 

Es  la  siguiente: 

DIRECCION 

SIGUIENTE  NUMERO 

DA*254"DB  DE  LINEA 

y\  LAxiisx  lb 


OÍ 

FIN  DE 
LINEA 


Los  dos  primeros  bytes  señalan  la  siguiente  dirección  de  memoria 
en  que  se  encuentra  la  linea  siguiente,  seguidos  de  otros  dos  bytes  con 
el  número  de  linea,  a  continuación  vienen  las  instrucciones  y  el  texto 
para  terminar  con  un  (0)  cero,  como  indicador  de  fin  de  linca. 

Si  la  primera  linea  de  programa  fuese: 

\jí  PRINT  "HOLA” 

Se  almacenaría: 


153 


Si  el  programa  terminara  con  esta  línea,  las  posiciones  2^61  y  2JÍ62 
contendrían  un  (Jt)  cero  cada  una.  indicando  asi  el  final  del  programa. 

Todo  esto  ya  ha  sido  antes  explicado  en  "Ventana  CBM"  del  n®  5 
del  Club  Commodore,  pero  creo  que  no  viene  mal  recordarlo,  asi 
como  puede  ser  de  utilidad  para  los  que  se  han  unido  recientemente  ai 
“mundillo”  de  los  Commodore. 

Perdonad  que  me  "enrolle"  tanto,  pero  es  la  primera  vez  que  os 
escribo,  y  me  estoy  aprovechando  un  poco. 

Pero  es  que  lo  que  voy  a  decir  viene  al  caso. 

Y  es  un  "truco"  para  modificar  los  números  de  lineas  y  confundir  a 
quien  liste  el  programa.  Supongamos  que  tenemos  este  programa:  ' 

Ift  FOR  X=1  TO  10 

-Í)  PRINT  “HOLA" 

30  NEXT  X 

La  direcciones  2^5 1-2^52.  2(<63-2(fe4  y  2075-2076  contienen  los 
valores  de  los  números  de  linea  en  2051  =  10,  2063=20  y  2075=30. 

Si  hacemos  Poke  2063,10:Poke  2075,10  y  listamos  el  programa, 
para  nuestra  ¿sorpresa?  las  tres  líneas  anteriores,  ahora  tienen  el 
mismo  número. 

¿Qué  ocurre  si  lo  ejecutamos?,  probemos:  vemos  que  funciona 
correctamente. 

¿Qué  os  parece  un  programa  con  números  de  lineas  iguales?  (un 
desastre  seria). 

También  este  programa  sirve  para  grabar  los  programas  de  código 
máquina  almacenados  en  el  ordenador.  Para  volver  a  instalarlos  en  el 
ordenador,  usar  Load  “nomb.”,  periférico,  1. 

Para  usarlo  hay  que  dar  la  dirección  de  inicio  y  la  dirección  final, 
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BUSCA  +  LIST 


63000  REM  BUSCA  DIRECCIONES  TRAS  OOT 
O,  00SU8 , THEN 
63010  SA=2048  sSl =SA 

63020  INPUT“ CCRSRO 3 NUMERO C SPC IDE C SPC] 
LINEACSPC3ACSPC3BUSCAR!" ;VA 
63030  S2-PEEK  <  S  lv-2  >  «256+PEEK  (  S 1  + 1  >  - 1 
: S3“S 1 +4  s  S4=S2+ 1 

63040  NL»PEEK<Sl+4)*256+PEEK<Sl43> 

63050  F0RX=S3T0S4:0=PEEKCX> 

63059  RCH***  SI  NO  ES  NI  GOTO.GOSUB 
O  THEN  ENTONCES  A  LA  SIGUIENTE  POSIC 
ION 

63060  1F00137AN0001 41 ANODO  167THEN 
63120 

63070  FORV-XTOS4sDl-PEEK<V>  «IFD1-58T 
HEN63090¡REM***  BUSCA  DOS  PUNTOS 
63080  NEXTV 

63090  A*«“ * :FOR2«X+lTOV-l :A*»A*+CHR* 

[  < PEEK <Z  >  >  sNEXTZ 

63100  NU='.rlL(A«)  1IFNUOVATHEN63120 
63110  PRINT" CCRSRD3 “NU ; "ESTACSPC 3ENCSPC 3 
LA C SPC 3 L I NEA i “ ; PEEK < S 1 *4 > *256+PEEK < S 
1*3> 

63120  NEXT 

63130  Sl=S2:IFSl<lTHENENO 


NOTICIAS  COMMODORE 

I - - 1 

Curso  B.C.P. 

en  el  Club  de  Programación  Alaiz 

El  pasado  día  5  de  marzo  comenzó  en  el  Club  de  Progra¬ 
mación  Alaiz  de  Pamplona  el  curso  denominado  "Beginner's 
Computing  Program"  dirigido  a  los  profesionales  que  bus¬ 
quen  una  útil  introducción  en  el  mundo  de  la  informática  y 
ofimática. 

Las  sesiones  se  imparten  los  martes  y  jueves  a  última  hora 
de  la  tarde.  Los  primeros  dias  serán  una  introducción  al 
lenguaje  B.A.S.LC.  Posteriormente  se  pasa  al  conocimiento 
de  un  paquete  de  software  integrado,  en  concreto  el  Lotus 
1,2,3.  Los  jueves,  por  su  parte,  se  trata  de  plantear  diversos 
temas  sobre  aplicaciones  concretas  de  los  ordenadores  per¬ 
sonales. 

Los  profesores  son  especialistas  en  sus  diversos  campos. 

(Nota  de  Redacción:  Agradecemos  el  interés  que  ha 
demostrado  siempre  el  Club  Alaiz  de  Pamplona  en  enviarnos 
sus  noticias  y  programas.  No  os  preocupéis,  ya  irán 
apareciendo). 

Club  Alaiz 

Plaza  Monasterio  Santa  Gema,  s/n 

Telf.:  254480/257704 

Pamplona 

Programa  de  informática 
en  Radio  Popular  de  Vigo 

Desde  el  mes  de  febrero  se  está  emitiendo  por  la  onda 
media  de  Radio  Popular  de  Vigo  un  programa  titulado 
"Novas  de  Informática",  dedicado  a  la  informática  y  orga¬ 
nizado  por  el  Club  de  Microprocesadores  del  Circulo 
Ourensan-Vigues.  El  programa  pretende  informar  sobre  el 
mundo  de  la  informática,  fundamentalmente  de  los  ordena¬ 
dores  personales.  Está  redactado  en  gallego,  y  tiene  una 
emisión  semanal,  todos  los  martes  a  las  9  de  la  noche.  Todos 
los  componentes  del  equipo  de  redacción  no  son  profesiona¬ 
les  de  la  radio  y  están  unidos  al  Club  de  Microordenadores 
desde  su  creación. 


63140  REMPRINT" CCRSRODL INEA : “ ;NL 
63150  GOTO63030 
63200  i 
63300  » 

63400  REA  ************************** 


63430  REM  ***  GUILLERMO  SOM  CEREZO  * 


63450  REM  •**  NERJR  9710  DIC  1984  < 


63470  t 
63480  j 

63499  REM***  INICIAR 

63500  SA«2049iS1*SRiGOSUB6360OjOOSUB 
63900 »PA=30 ¡REM  PAUSA 

63520  GOTO63700 

63599  REM***  CABECERA 

63600  PRINT" ICLRD "SPC<7>  » " CCRSR03 CRVSON3 
C 3SPC 3 ***** C SPC 3 LI ST AOOS C SPC 3 *** ** C 3SPC 3 
IRVSOFF  3 ICRSRD3 " sRETURN 

63700  REM  ***  PARTE  PRINCIPAL  *** 

63710  S2-PEEK<Sl>*PEEK<Sl*l)*256iNL- 
PEEK  <  S 1 +2  >  v-PEEK  C  S 1  v-G  >  *256 
63720  PRINT" CCRSRL  3 " ;NL  t »FORX"Sl +4T0 
S2-1 iO=PEEK<X> iIFD-0THENPRINT»GOTO63 
750 

63722  I FO- 34 TWENO 1 -0 1  1 1 FD 1 >OTHENO 1 

-0 

63723  REM***  SI  HAV  COMILLAS  NO  ES  U 
N  TOKEN 

63724  IFOl-34THENIFD>127THEN63740 

63729  REM***  SI  ES  TOKEN  IMPRIMIR  TK 

* 

63730  IFO>127ANOO<204THENPRINTTK*<D- 
128>  t :GOTO63750 

63740  PRINTCHR*<0>» 

63749  REM***  BUCLE  PARA  LA  PAUSA 

63750  FORI-BTOPAtNEXTI |NEXT«O1=0 
63760  CETA* i IFA*-“ "THEN63760 

63769  REM***  SI  SE  LLEGA  A  LA  ANTEPE 
NULTIMA  LINEA  DE  PANTALLA,  BORRARLA. 

63770  IFPEEK<  19043O32THENGOSUB63600 

63780  I FA*« " - " THEN63820 iREM  RE TROCEO 
E 

63781  REM***  F1 

63782  IFA*«*CF1 J"THENPA-PA-10iIFPA<0 
THENPA=0 

63783  PEM***  F7 

63784  IFA*-"tF73*THENPA»PA+I0iIFPA>l 
00THENPA= 1 00 

63790  S1-S2«REH  AVANZA 

63799  REM***  SI  SE  LLEGA  A  LA  ULTIMA 
LINEA,  TERMINAR 

63800  I FS 1 =PEEK <  46 ) *256+PEEK  <  45 > -2TH 
ENEND 

63810  GOTO63710 

63819  REM***  SI  SE  PULSA  RETROCE 
DE 

63820  IFS1-SATHEN63760 

63830  S1»S1-2:IFPEEK<S1>-0ANDPEEK(S1 
-1  >O0ANOPEEK<S1-2>O0THENS1-S1  +  1  :GO 
TO63800 

63840  Sl-Sl+1 ¡GOTO63820 
63899  REM***  ALMACENA  LAS  PALABRAS  B 
RSIC  EN  LA  VARIABLE  TK*  PARA  LOS  TOK 
i  ENS 


PERSONAL/BUSINESS 

PRINTER 


AMPLIA  GAMA 


Nuevas  impresoras  modelos  F+  y  C+,  sin  rodillo  alimentación  horizontal  impresión 
vertical,  tracción  y  fricción  desde  4  a  10",  bidireccional  optimizada  velocidad 
105  cps.  con  soportes  de  elevación. 


RITEMAN  F+:  Interface  Paralelo  Centronics,  2K  buffer  NLQ 

RITEMAN  C+:  Especial  directa  a  C0MM000RE  (cable  inc.) 

Otros  modelos  RITEMAN  en  80  y  136  columnas,  velocidad  120, 140, 160  cps 


P.V.P.  69.000  pts. 
P.V.P.  67.000  pts. 


RITEMAN  10-11  160  cps.  P.V.P.  93.000  RITEMAN  15  160  cps.  P.V.P.  155.000 
DE  VENTA  EN  LOS  MEJORES  ESTABLECIMIENTOS  ESPECIALIZADOS 


PiiüAmon 

DATAMON,  S.  A. 
PROVENZA.  385-387.  6  ».  1  ,< 


KEPfrFSENTACION  EN  ESPAÑA  DE 

iwsmn.: 

•IMPRESORAS  PROFESIONALES - 


MAYORES  PRESTACIONES 

*  MENOR  TAMAÑO 

*  MEJOR  PRECIO 


TELÉFONO  (93)  207  27  04 


•  BARCELONA 


63900  I=0:DIMTK*<75> 

63910  F0RN-41U8T041373iK-PEEK<N> 
63920  IFK<128THENA*=A**CHR*<K> 

63930  IFK>«128THENR*=A*«CHR*<:K-128>| 
TK*<I>-R*tI«IM :A#="- sREMPPINTI-1 >TK 


VIC-20  con  ampliación 

Banco  de  datos 


Miquel  Gras  Carrera 
Pl.  Cois.  3.  Ó'-J". 
Mantesa  ( Barcelona ) 


Me  llamo  Miqucl. 
tengo  16  artos  y  vivo 
en  Manresa.  Os  envió 
una  nueva  colabora- 


0  RE II  ********************* 

1  REh  ***  GUILLERMO  SOM  •»* 

2  REM  •**  NERJH  1984  *•• 

3  REM  ********************* 


10  RRINT“£CLRHCRSROJ***CSPC3GRA8ARCSPC3 
PROGRAMAS  C  SPC  3EN£ SPC 3C/MI  SPC 3 *•* “ 

20  I NPU  T  "  £  CRSRD  3  NOMBRE  £  SPC I DEL  E  SPC I P 
ROGRANA " J A* : L »LEN < AS > i I FL> 1 6 THEN 1 0 
30  INPUT" £ CRSRD 3DIRECCI ONE SPC] INICIO 
“;0I :IFDI<0OROI>65535THEN30 
40  INPUT“ E CRSRD JSI GUI ENTE E SPC 3DIRECC 
I ON C  SPC  ID  I SPON I  BLE “  ;0  : 1 FDOO ITHEN40 
50  PRINT“ E2CRSR0] PREPARA! SPC3LAE SPC] 

C INTAE SPC ]0C SPC TELE SPC ]0I SCO" tPOKE19 
8,0.-WAIT198,  1 

52  IFPEEKC 186>=1THEN60 :R£M  SI  ES  CAS 
ET 

53  REM  *•»  INICIALI2A  EL  DISCO  V  LEE 
EL  CANAL  DE  ERRORES  *** 

54  0PEN15,8,15,"I" :INPUT#15,EN,E*,ET 
,ESsCL0SE15 

56  PRINTENjESjET /ES  :  IFENO0THENSTOP 
60  FORN«lTOL.POKE678*N,ASC<MIO*<A*,N 
, 1>>  sNEXT 

70  POKE780,L:POKE781,167:POKE782,2 
72  REM***  RUTINA  KERNAL  SETNAM  •** 

80  SVS65469 

90  P0KE254 , INT ÍDI/2567 sPOKE253,DI— PE 
EK  <  254  >  *256 : POKE780 , 253 
100  POKE782, I NT < 0/256 ) :P0KE781 ,0-PEE 
K  <  782 ) *256 

102  REM***  RUTINA  KERNAL  SAVE  *** 

110  SVS65496 
120  ENO 


Commodorc  World,  esta  vez  no  es  un  juego,  sino  un  interesante 
banco  de  datos  para  el  VIC-20. 

Este  programa  ocupa  unos  2920  bytes,  con  lo  cual  se  puede  utilizar 
en  un  VIC  sin  ampliación,  pero  una  vez  el  programa  contiene  los 
datos,  esta  cifra  aumenta,  con  lo  cual  si  no  se  tiene  ampliación,  se 
podrán  almacenar  pocos  datos  en  un  fichero,  pero  haciendo  varios 
ficheros,  el  problema  se  soluciona. 

Ahora  paso  a  dar  las  instrucciones  de  su  uso: 

El  programa  al  iniciarse  presenta  en  la  pantalla  varias  opciones 
(menú),  del  cual  elegiremos. 

Si  introducimos  datos  al  ordenador  nos  pregunta  cuántos  nombres 
(personas)  queremos  en  el  fichero,  la  respuesta  dependerá  de  la 
memoria  que  tenga  nuestro  VIC,  para  un  VIC  sin  ampliación  podría 
ser  5  ó  6,  como  máximo  7,  ya  que  el  ordenador  de  cada  persona 
almacenará: 

— Nombre,  dirección,  telefóno,  relación  (de  qué  le  conocemos), 

Al  introducir  los  datos,  el  ordenador  nos  irá  preguntando  de  cada 
persona  lo  mencionado,  y  al  terminar  volveremos  a  tener  en  pantalla 

En  las  opciones  4  (búsqueda  de  dato)  y  8  (cambio  de  dato)  se  ha  de 
entrar  el  número  que  ocupa  la  persona  en  el  fichero,  no  su  nombre. 
Este  número  lo  obtendremos  pulsando  3,  que  nos  clasificará  los  nom¬ 
bres  de  las  personas  con  el  número  que  ocupan  en  el  fichero. 

Si  se  ha  de  alterar  un  dato  de  una  persona,  se  pulsa  8  y  el  número 
que  ocupa  la  persona  en  el  fichero,  seguidamente,  el  ordenador  nos 
preguntará  los  nuevos  datos,  para  almacenarlos  en  el  cassette  habrá 
que  rebobinar  la  cinta  hasta  el  principio  del  fichero  y  pulsar  5  (salvar 
datos),  y  estos  nuevos  datos  quedarán  grabados  sobre  los  viejos. 

Y  para  volver  a  introducir  los  datos  del  cassette  al  ordenador  pulsar 
6  (cargar  dalos),  el  nombre  del  fichero  y  cuantos  datos  hay  en  esc 
fichero. 

Ahora  paso  a  daros  algunos  consejos  para  el  programa. 

^  —Utilizar  una  cima  de  20  minutos  exclusivamente  para  el  banco  de 

— Al  principio  de  la  cinta  hacerse  una  cabecera,  en  la  cual  se  pueda 
almacenar  el  nombre  del  fichero,  número  de  datos  del  fichero  y  en  la 
vuelta  de  contador  en  que  se  encuentra. 

— Dejar  unas  10  vueltas  entre  fichero  y  fichero. 

—Si  no  queréis  que  el  programa  vaya  a  esta  velocidad,  podéis 
suprimir  los  pokes  de  las  lineas:  -1 10,  740,  940,  1080  y  1210. 

Perdonad  tanto  rollo,  pero  creo  que  es  un  programa  del  cual  se  han 
de  dar  unas  instrucciones  para  su  funcionamiento  correcto.  Y  si  os 
quedara  alguna  duda  sobre  el  programa,  escribidme  y  procuraré 
aclarárosla. 


Devke  -  Dispositivo.  Un  componíate  eléctrico,  electrónico 
w  o  mecánico  de  un  sistema. 

^  Diagnostic  rouline  -  Rutina  de  diagnóstico.  Es  una  rutina  destinada 

''  a  la  detección  de  errores. 

^  üialog  -  Diálogo.  Una  secuencia  de  preguntas  y  respuestas  en  un  sistema 

interactivo,  es  similar  a  una  conversación  entre  personas. 

üichotomizing  search  -  Búsqueda  dicotómiea.  Es  un  sistema  de  búsqueda  entre  un 
-  grupo  ordenado  de  elementos  basado  en  dividir  en  dos  el  grupo,  rechazando  la  parte  que  no 

contiene  el  elemento  buscado,  este  proceso  se  repite  con  la  parte  aceptada  hasta  que  la  búsqueda 
termina.  Se  denomina  también  búsqueda  binaria. 

Dichotomy  -  Dicotomía.  División  en  subórdenes  o  subclases,  por  ejemplo:  blancos  o  no  blancos,  ceros  o 

Digit  -  Dígito.  Un  símbolo  que  representa  un  entero  no  negativo  y  menor  que  la  base  tomada,  por  ejemplo 
en  base  2  el  0  ó  el  1,  o  en  base  10  cualquiera  de  los  números  del  0  al  9. 

Digital.  Relativo  al  manejo  de  datos  en  forma  de  dígitos. 

Digital/analog  converter  -  Conversor  digital/analógico.  Es  un  dispositivo  capaz  de  convertir  una  señal 
digital  en  otra  de  tipo  analógica. 

DIR.  Directorio. 
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>r  que  la  base  tomada,  por  ejemplo 


BANCO  DE  DATOS 

10  REM  NIQUEL  GRAS 
20  REM 

30  REM  CARRERAS  <C> 

40  REM 

50  REM  MANRESA  1984 
60  REM 

70  PRINT“ECLR3" 

80  P0KE36879 , 232 
90  GOSUB740 
100  ENO 

110  POKE37 1 58 ,  38 « P0KE37 1 59 , 72 

120  PR INT" ECLR3  £2CRSRD3  E4CRSRR  3 IMT . CSPCI 

OATOSECRSRD3 " 

130  I NPUT “ C  2CRSR0  3CUANT OS  C  SPC  3  NOMBRE 
S-/M 

140  D1MA*<M> 

150  L=*H 

168  FORN-1TOL 

170  INPUT" f CRSRO 3NOMBRE* «A#<N> 

180  NEXT 

190  PR I N T “ C  2CRSRO  3  E  3CRSRR  3  PUL SE  E  SPC  3 
UNA  C  SPC  3  TECLA " 

200  GETE*«IFE*-““THEN200 
210  PR I  NT  "  £  CLR  3 " 

220  PRINT " E  3CRSRD3  C 4CRSRR3DIRECCIONE 
SCSPC3 “ 

230  D I NO#  <  M ) 

240  FORN=lTOL 

250  PRINT"£2CRSR03"A*<N>«INPUT"ECRSR03 
DIRECCION" «D*<N> 

260  NEXT 

270  PR I NT “ C  2CRSR0 3  C  3CRSRR 3  PULSE  C  SPC  3 
UNA C SPC 3 TECLA" 

280  GETE*«IFE#«""THEN280 

290  PR INT" [ CLR 3 E 3CRSR03  E 4CRSRR 3TELEF 

300  DIMT*<M> 

310  FORN-1TOL 

320  PRINT"£2CRSR03"A*<N> « INPUT" [CRSRO 3 
TELEFONO" »T#<N> 

330  NEXT 

340  PRINT"! 2CRSR0 3  C  3CRSRR  3  PUL SE I SPC  3 
UNA! SPC 3 TECLA" 

350  GE TE* i IFE*-" "THEN350 

360  PR I NT " E  CLR  3  £  3CRSR0 3  C  6CRSRR  3 REL AC 

ION" 

370  OIMR#<M> 

380  FORN-1TOL 

390  PRINT" E2CRSRD3 "A#<N> l INPUT" CCRSRD3 
RELACION" «R#<N> «NEXT 

400  PR I NT " C  2CRSRD  3  E  3CRSRR  3  PULSE  C  SPC  3 
UNA! SPC 3 TECLA" 

410  GETE*«IFE*-""THEN410 

420  PRINT“ECLR3E3CRSRD3£8CRSRR30TROS 

430  DIMOT#<M> 

440  FORN-1TOL 

450  PRINT"£2CRSR03“A#<N> i I NPUT " £ CRSRO 3 
OTROS" «OT#<N>  «NEXT 

460  PR I NT " C  2CRSR0 3  C  3CRSRR  3PULSE  C  SPC  3 
UNA C SPC 3 TECLA" 

470  GETE* i IFE*““ “THEN470 
480  GOTO740 

490  PRINT*CCLR3“iFORN-ITOL«PRINT"CCRSRD3 
E2CRSRR3-"A*<N> «PRINT" E2CRSRR3-"D#<N 
> :PR1NT"E2CRSRR3-"T#<N> 

500  PRINT" E2CRSRR3-“R#<N> «PRINT" C2CRSRR3 
-"OT#<N> 

510  NEXT 

520  PRINT" C2CRSRD3C3CRSRR3PULSECSPC3 
UNA C SPC 3 TECLA" 

530  GETE*«IFE#-“"THEN530 
540  GOTO740 

550  REM  SUBRRUT I NA  DE  CLASIFICACION 
560  PRINT"CCLR3£CRSR03C4CRSRR3CLASIF 


ICAC10NC2CRSRD3" 

570  FORN“ 1 TOL  «PRINT" CBLK3  CCRSRD3NUME 
RO“N  «PRINT*  E14HT3  *A#<N>  «NEXT 
580  PRINT" C2CRSR03 C 3CRSRR3PULSEISPC3 
UNA t SPC 3 TECLA" 

590  GETE* : IFE#=“ “THEN590 
600  GOTO740 

610  REM  SUBRRUT I NA  OE  BUSQUEDA 
620  PRINT*CCLR3  C2CRSRD3CCRSRR3 INTROD 
UCE C SPC 3EL C SPC 3NUMERO " 

630  PRINT" CCRSRD3  CCRSRR3DECSPC3LACSPC3 
PERSONA C SPC 3 DESE ADA" 

640  INPUT" C2CRSR0 3 NUMERO ",-H 
650  I FH>L  THEN640 

660  PRINT-C2CRSRD3LACSPC3PERSONACSPC3 
DESEADA CSPC 3ES"  í 

670  PRINT" ECRSRD3  E2CRSRR3-“A#<H> 

680  PRINT"E2CRSRR3-"D*<H> 

690  PRINT" E2CRSRR3-"T*<H> 

700  PRINT"£2CRSRR3-"R*<H> 

710  PRINT* £2CRSRR3-“OT#<H> 

720  PR I NT “ £  2CRSRD  3  C  3CRSRR 3  PULSE  £  SPC  3 
UNA £ SPC 3 TECLA “ 

730  GETE*  s IFE#=“ “THEN738 
740  PÜKE37158,28  s P0KE371 59,0  «PRINT" £CLR 3 
£ BLK 3 C CRSRO 3  £ 4CRSRR 3 BASE £ SPC 3 DE £ SPC 3 
DATOS" 

750  PRINT* £4CRSRR3£4COMMU3CSHIFT  SPC 3 
E2COMMU3ESHIFT  SPC 3 E 5COMMU 3 “ 

760  PRINT* ECRSRD3ECRSRR31-INTROOUC IR 
ESPC3DATOS" 

770  PRINT"£CRSRD3ECRSRR32-PRESENTARESPC3 
DATOS" 

780  PR INT "E CRSRO 3 ECRSRR 33— CLASIFICAR 
ESPC3DATOS" 

790  PRINT" E CRSRD 3 ECRSRR 34 -BUSQUEDA! SPC 3 
DEESPC3DATO" 

800  PRINT" ECRSRD3ECRSRR35-SAL VARE SPC3 
DATOS" 

810  PRINT" ECRSRD 3  ECRSRR 36— CARGARE  SPC 3 
DATOS" 

820  PR I NT " £  CRSRO  3  £  CRSRR 3  7-BORRHR  E  SPC  3 
DATOS" 

830  PRINT-ECRSRD3ECRSRR38-CAMBIARESPC3  , 

DATO" 

840  GETQ* « IFQ#=“ 1 “THENGOTOl 10  ¡ 

850  IFQÍ--2-THENGOTO490  1 

860  IFQ*«"3"THENGOTO550 

870  IFO*-"4"THENGOTO610 

880  IFQ*»-5“THENGOTO940 

890  IFQ*- *6 "THENGOTOl 080 

900  I FQ*« " 7 " THENCLR :RUN 

910  IFQ*«"8" THENGOTOl 210 

920  I FQ*^ " " THEN840  I 

930  GOTO840 

940  POKE37158 , 38  «POKE37159 , 72 

950  I NPU  T " £  CLR  3  E  2CRSR0  3  NOMBRE  £  SPC  3  F I 

CHERO" ;GG* 

960  INPUT*  E2CRSRD3CUANTOS E SPC 3DATOS”  i 

>J 

970  OPEN1 ,1,1 , GG* 

980  FORN-1TOJ 
990  FORO=*1T05 
1000  PRINT41 ,A*<N> 

1010  PRINT41 ,D*(N>  | 

1020  PRINT#1,T*<N> 

1030  PRINT#! ,R#<N> 

1040  PRINT#l,OT#<N> 

1050  NEXT «NEXT 
1060  CLOSE1 
1070  GOTO740 

1080  P0KE371 58 ,38  :P0(CE37159,72 «INPUT 
" ECLR 3 £ 2CRSRD 3NOMBRE £ SPC 3F I CHERO " «GG 
*  i INPUT" E2CRSRD3CUANTOSESPC  3DATOS" >J  ¡ 

1090  OPEN1 , 1 ,0,GG* 

1100  FORN-1TOJ 
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1110  FORO» 1 TOS 
U20  I NPUT #  1  ,  fl  *  <  N  > 

U30  INPUTK1  ,D*<N> 

1140  INPUT#1,T*<N> 

1150  INPUTH1 ,R$(N) 

1160  INPUT#l,OT*<N> 

1170  NEXTsNEXT 
1180  CLOSE1 
1190  L-J 
1200  GOTO740 

1210  POKE37158,38«POKE37159,72jPRINT 
“ C  CLR  J [ 3CRSRO  J C 3CRSRR i  QUE [ SPC  1 NUMERO 
CSPCIHftV" 

1 220 ^ PR í N T “ C CRSRO 3 t 3CR3RR í QUE C SPC ] Vñ 


0  INPUTZ 

0  PRINT-C2CRSROK2CRSRRí-“R*<Z) 

0  PR I  NT  “  C  2CRSRR  J - “ O#  r  2> 

0  PRINT"C2CRSRR]-“T*<2> 

0  PR  I  NT  "  [  2CRSRR  J  -  ”  R*  C  2  ) 

9  PRINT" C2CRSRRÍ-“0T*(2) 

0  PR INT”C3CRSRO]“:lNPUT "NOMBRE “>fl 

i  INPUT“ CCRSR03DIRECCION” ;0*<2> 

)  INPUT” CCRSRQJTELEFONO”  »T*<Z> 
í  INPUT” CCRSRD] RELACION” ;RS<2> 
i  I NPUT “tCRSROjl OTROS”  ;0T#<2) 


Assembler 


Miguel  Jaaue  Este  Pro8rama 

x  m  43  »  23 

2X001  Madrid  código  nemotécnico 

del  6510.  U  nota¬ 
ción  que  utiliza  no 

es  la  correcta,  sino  pareada.  Esto  es  porque  utilizo  la  longitud  de  la 
cadena  para  hallar  el  modo  de  direccionamiento. 

Es  sólo  ensamblador,  no  desensamblador.  Es  decir,  que  sólo  ves  lo 
que  has  programado  en  lo  que  queda  en  la  pantalla.  No  puedes  sacar 
un  listado.  Pero  aún  asi  es  un  buen  complemento  para  programas 


un  listado.  Pero  aún  a 
como  el  arriba  pcriscop 


En  primer  lugar  el  programa  pide  la  dirección  de  memoria  en  deci¬ 
mal  en  la  cual  se  va  a  iniciar  el  programa.  En  el  margen  izquierdo  irá 
indicando  la  dirección  alcanzada. 

Los  nemotécnicos  deben  escribirse  de  este  modo  (sin  espacios). 
Direccionamiento. 

Implícito  NME 

Inmediato  NME8FF 

Pág.  cero  NMESFF 

Pag.  cero  x  NMESFFx 

Absoluto  NMESFFAA  (Byte  Alto,  Byte  Bajo) 

Absoluto  x  NME$(FFAA)x 

Absoluto  y  NME$(FFAA)y  ••  « 

Indirecto  x  NME$(FF)x  >•  >• 

Indirecto  y  NME$(FF)y  •• 

Salto  indirecto  JMPS(FFAA) 

En  los  saltos  condicionales  (BEQ,BNE...)debe  expresarse  BNE#03. 
Siendo  el  número  de  bytes  a  saltar. 

Por  último,  si  en  vez  de  poner  una  instrucción  ponemos  una  x,  el  I 
programa  parará.  ^ 


i  PROGRAMAS 
MUY  RENTABLES 


1 

2 

3 

4 


Ptas. 

1.750 


DECLARACION  DE  REN¬ 
TA  DE  1 985 


1.750 


BLOQUEO  PARA  PRE¬ 
SERVAR  EL  COPIADO 
PIRATA  DE  PROGRA¬ 
MAS  3.500 


Programa  para  poner 
inserciones  y  títulos 
en  cintas  de  vídeo  4.500 


Programa  para  colocar  con  el  64  en  Hoteles  y  comuni¬ 
dades  de  propietarios  para  hacer  disponible  los  cana¬ 
les  de  T  V.  4,  5,  6,  7,  8  insertando  publicidad.  Este 
programa  se  sirve  con  un  "interfeise"  para  conectarlo 
directamente  al  cable  de  la  antena  colectiva  de  T  V 
8.000  Ptas. 


8 


(Con  impresora) 
Escritura  griega 
Escritura  ebrea 
Escritura  árabe 
Escritura  iraní 


Tamaño  normal 
8.000  Ptas. 
8.000  Ptas. 
8.000  Ptas. 
8.000  Ptas 


Tamaño  grande 
12.000  Ptas. 
12.000  Ptas 
12.000  Ptas 
12.000  Ptas 


10 


Igual  que  el  anterior  dispone  de  otro  "interface  que 
pone  la  "Panza"  en  el  vídeo  para  poner  publicidad 
entre  y  entre  partes  de  la  película.  Al  final  rebobina  el 
vídeo  y  lo  pone  en  marcha  otra  vez  22.000  Ptas. 

Escritura  Notas  Musicales  5  750  Ptas 

Escritura  Notas  Musicales  (gregoriano)  6.250  Ptas. 


Deseo  recibir  el  Programa 

(Anote  en  este  espacio  el  programa  deseado). 

Adjunto  talón  nominal  a  nombre  de  Jaime  Salom  Bosch 
CENTRAL  COPISTERIA  Olmos,  46  -  07003  Palma  de  Mallorca 
Teléis.:  21  01  24  -  21  53  48 
Estoy  especializado  en  el  tema  de 


Tel . Localidad  .. 

Estoy  interesado  en  temas  de 
Tel  Localidad 
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1  INPUT"DIR*;D 

2  PRINTOs sINPUTI*sIFI*--X"THENENO 

3  OH  LEN<I*>GOSUB22,22,3,22,22,6,30, 
«0,12,49,17,22 

4  00T02 

3  B*-I* :Q-1  :OOSUB33  sF>OKEO,R  sD-O+l  iR 
ETURN 

6  IF  MID*<I*,4,l>--#“THEN0-2i00T08 

7  0-3 

8  A*-RIOHT*<I*,2>tGOSUB23sB*-LEFT*<I 
4,3>sOOSUB33 

9  POKED,R  sPOKED-M  ,A :D— 0+2 sRETURN 

10  B*-CEFT*<I*,3> sO-3sA*-l1ID«<I*,5,2 
>sOOSUB23sB=RrA*«RICHT*<I*,2> SGOSU82 
3 

11  00SUB33 1  POKED,R  sPOKEO+1  ,  A  sPOKED* 
2, BsO-O+3 sRETURN 

12  IF  RIGHT*< I  * , 1 )— "X'THENQ— 8 : GOTO 14 

13  Q-9 

14  R<— MIO*CI*,6,2>  «G0SUB23 

15  B*-LEFT*<I*,3> IOOSUB33 

16  POKED,RsPOKED-M , A sD-O+2 sRETURN 

17  IFRIDHT*<I*,l>-"X"THENO-€:00T019 
IB  0-7 

19  R*-MID#<I*,6,2>»GOSUB23:B»A:A*«m 
0*<I*,8,2>s00SUB23sB*=LEFT*<I*,3> 

20  GOSUB33 

21  P0KE0,R:P0KED*l,A:P0KED+2,B:D=0+3 
sRETURN 

22  PRINT“ERR. " sRETURN 

23  Z*-LEFT*<A*,l>sIFASC<Z*»64THENF» 
ASC  <Z*)-35sGOT025 

24  A-VAL<Z*>*16sG0T026 

25  A-F416 

26  Z*=RIGHT*CR*,l>sIFASC<Z*>>64THEN 
F-ASC  <Z*>-55:G0T028 

27  R-A+VAL<ZE> :GOT029 

28  R-A+F 

29  RETURN 

30  B*-LEFT*<I*,3> sQ«4sGOSUB33 

31  R*=mD*<I*,3,2>sOOSUB23 

32  POKED , R : POKED+ 1 , A sD-O+2 sRETURN 

33  REAOJ* s IFJ*-B*THEX35 

34  G0T033 

35  FORF= 1  TOO  sREAOR  tNEXT s RESTORE  sRETU 


C, ,80,BVS , , 1 12,CLC ,24 ,CLD 
39  OATA216,CLI, 88, CLV, 184, CNP,, 201,1 
97,213,203,221 ,217, 193, 209, CPX,, 224, 
228,, 

48  0ATA236 , CPV ,,192,196,, 204 , DEC , , , 1 
98, 214, 206, 222, OEX, 202, OEV, 136, E0R22 


44  DATAN0P,234,0RA, ,9,5,21, 13,29,25, 
1  , 1 7  ,  PHA ,  72  ,  PHP ,  8 ,  PLA  ,  1 04 ,  PLP,,  404 

45  DATAPOL ,42, ,38,54,46,62,R0R, 106, , 
102, 1 18, 1 10, 126, RTI ,64,RTS,96,SBC, ,2 


DATATSX , 1 86 , TXA , 1 38 , TXS , 1 54 , T VA , 1 


A*=N I D* < I * , 6 , 2 > s Q0SUB23 s B-A s A4-NI 
I*,8,2>  SGOSUB23 

POKED , 1 08  s  POKED* 1 ,A sPOKED*2,B sD-O 
RETURN 


Baloncesto  y 
Estadísticas 


Rene  Rodríguez  >on  gmio  rae  at- 

Rhla.  Jas,  Oliveras.  66.  2.*-/.*  a  .us'cdcs  Pa™ 

Te!/.:  337  43  99  ofrecerles  anco  de 

LHospitalet  ( Barcelona )  !1,,s  Paramas,  con 

la  esperanza  tengan 

~ ~ ~ ^ ~ ~ ^ ^  a  bien  publicarme  al 
menos  uno  de  ellos.  Tres  son  juegos  (en  este  aspecto  no  soy  muy 
original),  pero  los  dos  restantes  son  educativos  y  muestran  perfecta¬ 
mente  las  utilidades  a  las  que  se  puede  llegar  con  el  VIC-20,  y  que  es 
capaz  de  algo  más  que  acribillar  marcianitos. 


Cuando  la  selección  española  de  baloncesto  consiguió  aquella 
medalla  de  plata  en  Los  Angeles,  en  un  momento  de  éxtasis  triunfal 
confeccione  este  programa.  El  jugador  se  enfrenta  a  los  temibles  Vic- 
troters.  dirigidos  por  el  banquillo  por  el  famoso  entrenador  compute¬ 
rizado  VIC-20.  Un  consejo:  no  se  desanimen  tras  jugar  la  1“  partida, 
ni  la  2.*,  ni  la  3.a.  ni  la  4.a... 

Las  reglas  del  juego  son  complicadas,  pero  todo  juego  emocionante 
entraña  dificultad.  Un  amigo  mió  consiguió  perder  por  sólo  ocho 
puntos  tras  jugar...  ¡12  partidas!  El  partido  consta  de  8  minutos  y  el 
tiempo  de  posesión  de  balón  es  de  20  segundos.  Como  los  jugadores 
de  los  Victroters  se  mueven  aleatoriamente,  el  jugador  se  ve  obligado 
a  efectuar  un  pase,  y  el  ordenador  no.  (algo  parecido  ocurría  en 
“Batalla  Naval”). 


El  último  programa,  “Estadísticas",  es  muy  útil  para  realizar  gráfi¬ 
cos  de  porcentajes  en  Geografía  para  2“  de  BUP. 

Su  presentación  tal  vez  no  es  muy  buena,  pero  la  razón  es  que  me 
he  topado  con  las  limitaciones  de  las  exiguas  3,5K  del  V1C. 

El  menú  te  ofrece  cuatro  posibilidades  de  trabajo: 

1)  Representar  una  pirámide  de  edades. 

2)  Representar  datos  en  columnas  proporcionales  horizontales 
(hislogramas). 

3)  Representar  la  pluviosidad  anual  de  una  ciudad  (climograma). 

4)  Cargar  datos  de  la  cassette  previamente  grabados  en  ella.  Creo 
que  es  muy  interesante,  ya  que  permite  asimismo  la  clasificación  de 
datos  al  grabarlos  en  cinta.  Además  lo  veo  original  ya  que  no  sé  de  un 
programa  parecido  para  el  V1C  sin  ampliar. 

Y  esto  es  todo.  Espero  volver  a  escribirles  muy  pronto  para  ense¬ 
ñarles  mis  programas.  Yo  soy  un  suscriptor  de  su  estupenda  revista 
que  no  me  he  atravido  a  escribirles  antes  tan  sólo  por  temor.  Pero 
creo  que  todos  debemos  participar  y  ayudarnos  en  la  tan  divertida 
tarca  de  programar. 


10  Pk I N I " f  CLR  3 "  T 1 " 0ÜO000 "  ÚU  T  ÜBÜ0 

¿0  POKE J +11 , 32 : I Fñ4= " C  F 1 J” 7 HENHI1=-¿¿ • 
RETURN 

¿0  1FÑ4-" LF3J"  rHENI'IM-22  RETURN 
40  IFÑá=',4"THENMM=-l  RETURN 
50  I Ffil = “ 5" THEN11M= 1  RETURN 
70  1FÑ4-" [SPC] "ÑNBE=1 THENPUKEJ , 37  J* 
J+H  GÜcUt¿00 ' PÜKEJ , 32  MM--1HMM 
áü  RETLRN 
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Iü40  UÜSUB440  PRiNTTHBk  14,LH  PÚKEJbb 
.'4,20(3  PRINTTIÍ,  PRINTINKL.PGÜTÜ100 
0 

2000  L*L- • 23 : I F  VÑL  <  T 1  í  ,  =>800THEN3000 

20u2  FÜRÑ*1T05  üETÑ*  íi-HIO" "THENGÜS 
UB20 • POKEK , 32 • K=K+MM  PÜKEK. 37  PÜKEK+ 
De 

2U10  NEXT 

2020  I FIIO 1  hNDPEEKA  J+2  7  “32 T HENPOKE J + 
M, 32  M=1  007 02060 

2ü ¿ü  IFINT<1+RND<1,>*27*2THEMPÚKEJ+M, 

32 ■ M=22 ■ GÚTO2060 

2050  PÜKEJ+M,  32 ; M*-22 

2060  POKEJ , 32  J=  J+M  POkE36d?4 , 0 

20 1 '0  GÜSUB  1 0Ü  F  ORÑ+ 1  TOS  •  I FPEEK ».  J  +M*H 

>  =35THENP0KE J , 44 ■ PükEJ+D, 2  J*JtM  GÚS 

UB200 

20/2  1FPEEKÍ J+M#H,=44THENPÜKEJ.44:P0 
KEJ+D, 2  J-J+M  GOSUB200 ' GOTO2Ó80 
20/5  NEXT  P0KE36874, 200 
2000  P0KEJ.44P0KEJ+D,2  PÜkEJ+H,3é  G 
ÜSUB440,  PRIN1 " "THB< 14P  J  CH : PRINTTIi , 

2030  PRlNflNTCL,  GUTÜ2000 
3000  PRINT"  [HÜM7  E4CRSRD7F 1NHL  l  SPC 7 DE 
l ESPL  7PHRT I DO" , PU. CÑ : P0KE36878 , 0 
3005  FORÑ-1TÜ4O00  NEXT  PÜKE 198,0 
3010  WHIT190- 1  RUN 

0535  DÑTH7769. 7794, 7345, 7360,  7770,  77 
95,7971,7350 

7000  DÑTR0, 0,24, 36, 3b, 24, 0,0, 0.0, 0,2 
4,24,0,0,0,24,24,0, 12e, 90, 90, 24, 60, 1 
2b, e4, 32. 16,0 

7010  BH7H4, 2, 1,1, 1,1. 1,1, 1,1. 1,1, 2, 4 
,0, lb,32,b4, 128,0.0,0,255,255,0,0,0. 
24,24,24,24,24 

7020  BÑTH24, 24, 24, 255-0-0. 0,0. 0.0,0, 
24,24,0,126,90,90.24,00 


ESTADISTICAS  VIC-20 
40  PK I N  r " E  CLR  J  t  BLU  J  t RV3ÚH J  MENU 1 KVSÜFF 1 
"  DI»30720FI«7?05CO»1 
50  FRINT"E4CRSRD7ERED71  ,CSPC7PIRÑMID 
E  C  SPC 7  EDÑDES "  PR I NT " £  2CRSRB  7  2  >  E  SPC  7  T 
ñSñS  E  SPC  7  VFiR 1 Ñ¿ " 

55  PR 1 NT " £  2C  RSKD  J  3  >  E SPC 7 CL 1 MQGRÑMÑ " 

P  R I  NT  "  £ 2CRSRD  7  4 , E  SPC  7  LECTURÑ E  SPC  7  DE  E  SPC  7 
FICÑERüS"  PRIN1  “  t 2CRSRD  7  L  BLU  J  JURFlDÚ  C  SPC  J 

10-04 " 

bü  UtlH*  i P  Ñí= " " ORVÑL ( Ñ4 1 <  1 ÜRVML Ñi ) 
>4THEN60 

70  ONVRL (  Pí  ,001 0100 ■  20O,  300,400 
100  \  NPU'-  " £  CLR  7  C  CRSRD  7 1  PEI)  7  PÑ I S " • P4 : 

1)  I [1H\  ¿U,  1)IMM  >.20, 

til?  F ORÑ= 1 TÜ20 : PR I NT " £ CRSRD J E BLU 7 C SPC J 
Ui.p  i  J"  ■  ■  Ñ-l  ,*5.  .  H*5,  "E SPC 7 HOMBRE 

s"  IHPUTH'.HJ 

120  PR I NT " C  CRSRD 7 1  RED  J  C SPC  7  X C  SPC 7  "  7  < 

Ñ-l, *5. ,Ñ*5, "I SPC 7 MUJERES"  INPUTM 
<Ñ>  NEXT 

130  PR1NT“ECLR7"  •FGkH*19rü0¿TEP-l  PR 
1  NT " £ BLi. 7 1 9CRSRR 7 ".HAS  NEXT  PR I NT "X3 
8/o54  321 C  2SPU 1 23456 7037.  [  CRSRL  7  " 

14U  PR  1  NT  "  1  CRbRU  J  E  REI)  J " ,  Pí 
1 50  CO*ü  F I *6 1 09  FORÑ* 1 TÚ20  F  ORX= 1 TO 
M<Ñ,  PÜKEFI+X, 1 60  PÜKEF I +X+D I , 0 : NEXT 

loó  RE“Cri<H7-INT<M<ft)))*10GOSUB501 = 

F I  *8 1 03-224Ñ • NEXT : F I *8 1 08  R=2  S=10-T 
*1  0*128 

170  FukÑ*l TÜ20 • FÜRX=1TÚHCÑ, : POKEF I -X 
,  160  POKEFI-X+BI ,  0  •  NEXT :  RE*íH(Ñ7-INT 
<H(Ñ7>)*10 


I  íbü  GÚSUB501  F1=8108-22*H  NEXT 

150  WHIT198, 1  PÜKE153.0  PRINT"ECRSRD7 
BESEÑ C ¿PC 7 ÑBR 1 R 1 SPC 7 F 1 CHERO > " 

191  GETñÍ  IFHÍ=" "THEN191 

192  IFñí="N"1HENRUN 

193  GOTÜ800 

200  I NPUT “ ECLR7  E3CRSKD7NUMtkU£  SPC7DE 
£ SPC 7 ENTES ",N 

210  I FN>2 1 THENPR I N T " £ 2CRSRD 7  £  RVSuN 7  N 
l  UMEROESPC7EXCESIVOERVSOFF7"  FORÑ*irü 
|  3000 : NEXT  GOT 0200 

2 20  DIMBíUO  DIMCEN,  FÚRÜ=1T0N  PR1NT 
" £  CRSRD  7  E  RED  J  HBRE V I HTURÑ £  SPC  7  ENT £ " , B 
1NP0TBÍ 1 B) 

230  PK 1 NT " E  BL  U  7  £  R V30N  7  DH I Ü  E  bPC  J  BE  E  SPC  7 
£RVS0FF7",B*<B, • 1NPUTCCB)  NEXT 
24Ó  IHPUT"  E2CRSRD7EBLK  7ESCÑLÑ"  ,  ti, 

250  FÜRB*1 TON  IFC<B3/ES>18THENPRINT" 
ERVSÚN  7  £REB7£2i:RSRI)JESCÑLÑ£SPC  J  INlíEB 
1 Bñ  £ RVbOF F  7 "  GOT 0240 
.60  NFXI  PR1NT" ECLR7"  F0RB*1TÚN  GU=C 
0+1  II C0=/THENC0=2 

2?0  PR1NTB3C B> : B*INT £C(B^/E¿7 • P£JRX=1 
TUD  PUKEF1+X- le0 

!  ..b0  Pi'FEP  I+30/20+X  •  CO  ■  NEXT  RE--.C'B,. 

E¿-B,iP10  X=X+1  GÜSUB500  Fl-Fl+22  NEX 

250  PRININÜÍ  WMll  198, 1  P0KE198, 0  P'RI 
NT " E  CRSRD 7 BESEN C  SPC  7 ÑBR IRE  ¿PC  3F I CHER 

O?" 

291  GEIHJ  IF‘Ñ#=,"‘TrtEN291 

292  IFhi-"N"THEHRUN 
233  GUT075U 

300  DIMPL<12)  DIMMÍ12)  :PR1NT"ECLR7" 

310  FÜRÑ=1T012  KEñBBJEñ; :PR1NT"£BLU7 
£  C  KSR  O  7  PLUV 1  Os  1 BÑB  £  SPC  7  "  -  "  £  REB  7  "  ,  Bí 
H,,"£BLK7"  INPUTPUÑJ  NEXT 
315  I NPUT "£ CRSRD 7 LUGÑR“,L* 

320  INPUT"E2CRSRB7[BLU7ESCHLÑ" , ES 
330  F0RÑ*1TÜ12 ; IFPLi Ñ>/ES>171 HENPklN 
1" £  REB  7  £  RVSON 7  £  CRSRD  7  ESCHLÑE  SPC  7 1 HBE 
BIBÑ"  GOTO320 
335  NEXT 

340  PK I NT “ £CLR J  £  1 ¿CRSRD 7  £  tíCRsKR JEP NH 
V  JLGSÜNB £  2CKSRR  J  £  REB  J " , Lí . " £  CRSRU  7 " 

F  OR  H=0TÚ 1 7 : PR I NT " £ 2CKSRU 7  £  BLK  7 " i 
350  PR1NTÑ4ES : NEXT 

360  SI *8062  ■  FÜRÑ=1 1U12  B*->.  INI  (PLCÑ) 
,'ES,-1 ,*22  FORX=0TÜBSTEP-22  PUKES1+X 
,  160 

370  PÜKESI+X+3U/20. 0  NEXT  RE=£PL(Ñ V 
ES-(-B722+l ) >410 • GOSUBO00  SI*Sl+l -NE 
XT 

330  WÑ i T 1 98 , 1  PÜKE138, 0  PRINT" E CRSRD 7 
BESEÑ  £  SPC  7ÑBR I R  £  SPC  7  F 1 CHERO? " 

391  GETH4  IFÑ$=M "THEN391 

392  I F Ñí * " N" THENRUN 

393  GÜTO70Ü 

|  400  1NPUT"  1 CLK  J  t  bLK  J  EKVbUNlNül  ltiKEl  RVSUFF  J 

l  " , NÜÍ  PR I N I " £  2CRSRB  7  £  BLU  J  PÑRM  £ SPC  J  UU 
E  £  SPC  7  OPC 1 ÜN  £  SF  C  7  BESEÑ  £  SPC  7  £  CRSRD  7  LE 
ER E SPC 7 DÑTOS £ SPC 7 C 1 -3 > " 

410  OETÑ$  IFÑ¿«''  "ÜRVÑL^ÑSXIURVñLi.Ñ* 
7>3THEN410 

420  PR I NT " £  CLR  7  E  CRSRD  J  £  RED  7  £  RVSÚN  7  CÑ 
RÚÑNDO  £  SPC  7  DÑTOS ''  •  0NVÑUÑ*->ÜÜTÜ4  30,  7 
70,730 

430  D1MHC20) ' DIMTK20T  ÚPEN1 , 1 , 0, NOÍ 
iNPUT41.fí 

450  F  ÜRÑ= 1 TO20 : PR 1 NT " L CRSRD 7 1 BL  U  7EBÑ 
D" . Cñ-1,45, . h*5, "£ SPC 7 HOMBRES"  1N 
PUÍ#1,H(.Ñ)  PRINTH‘Ñ, 

4b0  PR 1 NT " £  CRSRD  7  £  RED  7EDHD £  SPC  7”,(rt- 
1 1*5.  “E  SPC  7  MUJER  ES"  I  HPü  f  4 1  -  N  H  ,  PK  1 
NTM(.H;  NEXT 
470  CL0SE1  GOTO 130 


í¡02 
503 
SUS 
DlU 
5¿0 
53U 
540 
5  Su 
Sc.Ú 
5/0 

a/a 

,CÜ 

580 


619 

b¿0 

630 

640 

b50 


IFt  t  B.«a0THENPÜ=J2 • X=X-1  GOTU570 
I FRE=0T  HENRE  T  URN 
I FH  <  H  K 1 HNDR=2THENX=X- 1 : GÚT0bU5 
IFfKflXl  HNDR=0THENX=X- 1 
1FREC2THENPO=101 fR ; GOTG570 
I FRE<  3 1 HENPO= 1 16-S • GOTÜ570 
IFRE<.'4THENPÜ=1 17+T  GÜTÚ570 
1  FKEc.6 1  HENPÜ=*97+U  •  GÜTOS70 
1 F  RE<7  i HENPO-246-  T  GOTO570 
1 F R£<8 I HENPÜ=234+S  GÜTÜ5/0 
P0231-R 

I F  D<  1  NNDH  c  S  )  =0THENX=X- 1 

1 F  K-2THENP0KEF I  -X,  Pü  PGKEF I -X+D I 

RETURN 

PÜKEF I+X , PO  PUKEF I  -fX+D  I ,  CU  RE  TUR 

1 FPU  M  )  =0THENPÜ*3¿  ■  OUTÜ67U 
IFRE*UTHENRE  TURN 
I FRE  c 2 THENPO® 1 00  GUTüb/U 
lFRE<37HENPOal 1 1 : GOTO670 
IFRE<4THENPUa121 -ÜUTÜ670 
IFkE<6THENPOadtí  6ÜTÜ670 
I F  RE<7 1  HtHPÜ»¿43  ■  GÜ  TÜb70 
IFRE<8THENP0a247  ÜÚTÜ670 
PO-227 

lFPL<rtKESTHENX«X+22  - 

PÚKES I+X,PÜ  PÜKES  I+X+DI  ,  0  ;  RE  TURN 


700  PR1N1  "CCLRH  ¿CRSRD  J  GRhBHNDO  í  SPC  I 
DRTOS"  I NPUT  "  C  2CRSRD J  [  BLK 1  NOMBRE  " ,  NO 
*  ÜPENl, 1, 1,NÜ*  F0Rft«lTÜ12  PRINT*1,B 
íiH) 

710  PRINT#1 ,  PL<  H.i • NEX T  PRINTR1 , L$ ■ PR 

INlil.ES 

720  CLOSE1  RUN 

730  DÍMB*(12^  DIMPU12- 

7  JS  PR I N  T  “  t  CLR  J[  ¿CRSRD K  BLK  J  [  RVbONJL 

EYLNDU"  ÜPENl , 1,0, NÚ*  FORHal TÜ12  1NP 

Uim  -  6*  ■.  H  ,  INPU1#1  •  PL ‘:H; 

740  PRINTB*CH>  PRIHTPLÍfií  •  NEXT  1NPUT 

*1,1.*  i  NPU  1*1  ,  ES  :  GOT 0340 

750  1HPUT" L CRSRD 1 NOMBRE ", N*  UPEN 1 , 1 , 

1 ,  N*  PRlNI#l,NPRINT#l,ES-FORH»nDH 
760  PRINT*l,tíí<fi> :PRINT#1,C(H>  HEXT 
CLÜSEI  RUN 

770  OF'ENl  .1,0,  MU*  ■  1NPUTR1 ,  N  DIMBFíN; 
D1MC-N>  1NPUT#1 , ES  FORrt=l TÚN 
780  INPUT#1 , B*íH; ■ lNPUT#l,C<fOPKINT 
B*'  N,',C(H>  NEX T  •  M=u  GOTO250 
800  PR1NI “ rCLRJüRHBhNDÜ"  I NPUT "C CRSRD 3 


NOMBRE", N*  0PEN1, 1, 1,N*  PRINT#1,P*  F 
ÜR»  1  TO20 :  PR  I N 1  #  1 ,  H c  H  ) 

810  PRINT#1,M(H>  NEXT  CL0SE1  RUN 
20U0  DRTRENERO, FEBRERO, MHRZO, HBRIL,  11 
HVO , JUN I O , JUL 1 0 , HGÜSTQ, SET  1 EMBRE , OCT 
UBRE, NOVIEMBRE 
¿010  DFtTNDlLl EMBRE 
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Preol-Sprite 


Juan  Jesús  Darvanani  Hormiga 
Suscriptor  5676 
C/  San  Martin,  64.  2-5 
S.  C.  de  Tenerife 


El  programa  que 
os  adjunto  en  la 
cinta  de  cassette  no 
necesita  explicación 
alguna,  ya  que  desde 
que  se  carga  y  se  eje- 
el  último  detalle.  Mi  idea  era  mandar  el  pro¬ 
conocimientos  no  son  tantos,  por  lo  que 


grama  protegido,  pero  _ T 

me  es  casi  imposible.  Os  rogaría  que  si  sabéis  la  forma  de  proteged 
programa  en  una  cinta,  me  la  digáis. 

Tengo  en  proyecto  un  par  de  programas  más,  asi  que  cuando  los 
acabe  me  acordaré  de  vosotros  y  os  los  enviaré. 

Sota:  Cuando  nos  mandéis  ios  programas,  no  debéis  mandarlos 
protegidos,  porque  en  tal  caso  no  podríamos  listarlos. 


PROOF-SPRITE 

4  FORN«0TOó2 :  P0KE832+N  ,  0  s  NEXT 

5  PRINT-CCLRT* iPOKE33280,2jPOKES3281 

,  14:P0":-S46.  1 

te  r-0R;V*l<í24T01&S3 sPOKEñ,  l?0:P0KEfl»5 

t272.7  ti EXT 

20  FUR  HM9S4TO2023 :P0KEfl, 170 jPOKErt+5 

4272.7  £XT 

30  FOX  ,*  1  U¿4!  U 1 444 S  rEP40  :  POKEÍ1 , 1 70 1 F 
ORL/r,  5,272,7  .NEXT 

40  F  1  O63TO2023STCP4  9  :  POKCH  ,  1 70 1 P 

CPCa«-5 1 272, 7  :NTXT 

SO  PRI»4TTFU?<3>;,,C.:RSPD1CBLUHRV80HI0 
F-Mti8TF4vCI0NC3PC)DEtSPC3SPRI  ÍES  s“ 

60  PRINTTFIBC 14> CBLU3  CRVSON3PROOFCSPC3 
SPRtTE" rPPINT 

70  PRINTTnBc S 1 í"ESTECSPC3PR0GRFM1flCSPC] 
TE  t  SPC 1  ?£RV  I  Rfi  í  SPC  3  PFtRfi  C  SPC  3  PROBAR  “ 

80  PRINTTRBÍ 1 ) ; “CU0LQUIERCSPC3SF>RI TE 


ELECTROAFICION  COMPUTER 

C/  VÍLLARROEL.  104  -  08011  BARCELONA  ■  TEL.:  253  7b  00  -  09 

C/  GRAN  VIA  CORTS  CATALANES,  559  -  08011  BARCELONA  ■  TEL:  254  23  19 

PRODUCTOS  COMMODORE 

SOFTWARE 

GAMA  COMPLETA  DE  ACCESORIOS 

Dbk  Orive  1  MI 

i orí  labilidad  Doméstica 

Joysticks 

Monitor  C  olor  1701 

Mailing  y  Etiquetas 

(  ommodore  64SX  Portable 

Base  de  Datos 

Discos 

Commodore  16 

Programas  E  ducativos 

Lasv  Scripl 

Monitores 

Inlerpod 

Impresora  Seikosha 

IMPRESORAS 

Seikosha 

Procesador  de  Iextos 

Vlicrodrive 

Star 

ORDENADORES  DE  GESTION 

Teclado  DKTROMCS 

LAPIZ  óptico 

CBoh"' 

Comnwdo*1” 

Amplificador  Sonido 

Apple 
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L 3PC  J  j'JE r  SPC 3 ENCUENTRES CSPC 3ENCSPC 3A 
L-“ 

90  PRIr;TTA0a>j"GUNACSPC3REVISTA,VRESPC3 
UUK E SPC 3  re I SPC  3PERN I Tt  E  SPC  3 1 NTRO- E SPC  3 

1O0  PRINTTA8Í 1  >  ; “DUC IRCSPC3L0SCSPC 30 
ñ TOS C SPC 3 QUE C SPC 3 RPfiRECEN C SPC 3 EN C SPC 3 
LASE2SPC3" 

lie  PR 1 N TTAB  < 1 LLANADAS  C SPC 3 L I NEHS 
C SPC 3 C*A TAS . E SPC 3 APROVECHANDO C 2SPC 3 “ 

120  PRINTTA6< l  >  ; “ESTfiCSPC  3 INTROOUCC I 
ON  t  SPC  3  TAI®  I ENE  SPC  30S  C  SPC  3A0  JUNTOE  SPC  3 

'  130  PRINTT AB<  1  >  ;  “UNESPC3SPRI TEESPC3D 

E C  SPC  3  DENOS  TRAC 1 0N£  SPC  3  YA  £  SPC  3QUE  £  SPC  3 
I1EC2SPC3” 

140  PP  SALTALA  J  >  ;  “HrlE  SPC3PAREC IDOLSPC3 
UOE l SPC 3ES £ SPC 3EL £ SPC 3NE JOR t SPC 30UE £ SPC 3 
HEE3SPC3- 

150  PR INI  TRO*.  13; "  TEN  IOOE  SPC  3  YE  SPC  3011 
ECSPC3S1GOCSPC3TENIENDO. CSPC30EBE3ESPC3 
SE-" 

160  PRINTTRBC 1 > ; “GUIRESPC3LBSESPC 3 IN 

STRUCC10NESESPC3RLESPC3PIEESPC3DEESPC3 

LAE2SPC3- 

170  PP.INTTAB<  1  >  ;  “LETRA, SINESPC JEGlUIV 
GCRRSC . V  E  SPC  3RNTEESPC3T 000 E  SPC  3 NO  E  SPC  3 

¡00  PpTt.*TTAf<<  l  >  ;  “PULSESESPC3LRESPC3T 
>  C  lr<lJN/ST0P£Sf>C3VflrSPC30UEESPC3 

:  IhOf.  Cl” 

li-n  f  ‘¡NTIHéiÍ  1  > ;“TOOO£SPC3S££SPC3 1RI 
;£ST  CAE  SPC 3  LA  E SPC  J PORRA .  VESPC3AH0RH 
tfayC3.;!NE2SPC3“ 

100  PR Mil Tft6< 1 > ; "NHDHESPC 3HASESPC 3 , V 
l SPC 3  OESEANOO t SPC 3 QUE E SPC 3 ES TE E 2SPC 3 

210  Pi;INTTA6< 1 > - "PRÚOPHNAESPC3SEAESPC3 
LTEÍT»!' 1  rU££rC3n0RAE50,HASTfl£SPC3LflE2SPC3 

•20  P!'  MTrAb<l>>-PP0XIMA<VEZ£SPC3QUE 
í  srC3l.’s£S£SPC3ESTEESPC3PROCRnrifl>.  “  sP 
Í-INI 

pt<ÍNriHt'<6>  ;"PUI.SAC3FC3ESPACIOESPC3 
PAR!  .£  SPC  3C0NT I NUAR  • 

240  OETO*s  ir-0Í«=““THEN243 

250  PRIN £“ ECLR3 “ :CLR 

255  FORN=0TOÓ2sPCKE832*N,0sNEXT 

260  FÜRA=1024TO1063 sPOKEA, 127 sPOKEA* 

54272.7  sHEXT 

270  FORA-1984TC2023 sPOKEA, 127 sPOKEA* 
54272.7 «NEXT 

280  FORA-1024TO1984STEP40 sPOKEA, 127: 
P0KEA+54272.7  sNEXT 

290  FORA=1063TO2023STEP40 sPOKEA, 127» 

POKER *54272. 7 »NEXT SPRINT 

300  PPIMTTA6<12>;“EBLU3£RVS0N3MCNUESPC3 

DE  C SPC 1 OPCIONES- sPRINT SPRINT 

310  PRÍNTTA8<5/ > “ i . -ESPC3 INTROOUCIRESPC3 

NUMEROSE SPC 3BIHARIÜS“ 

320  PRII  !TTAB<5>  ■  ECRSR032.  -ESPC3 1NTR 
ODvJC  I  ft  £  SPC  3i  4UMER0S  £  SPC  3  DEC  I  MACES  “ 

330  CETO* 1 1F0*=" “THEN330 
340  ONVAL<O*>GOTO500,100O 
350  IFOPO-1“ORO*O“2-THEN330 
360  ENO 

500  PRIN1 " £CLR3“ SPOKE53280. 14 :POK£53 
281.4 :P0KE646 . 1 

510  PRINT  sPRXNTTABC5> ; " CRVS0N3 INTORO 
UCC I  (¡N  E  SPC  3  DE  E  SPC  30AT0S  E  SPC  3  B I NAR I  OS 
“sPRINT SPRINT 

520  L ÍN2<70>  ND<70>  sF0RB=BT062 
530  FT. I NT  ••  DA TO E SPC  381 IIARIOC SPC 3 NUMER 
O"  ;8 ;  E SPC 3  "  :  IMPUTA* 

540  3L»OsC=0 

050  FTJRX— üTOi  3TEP— i  sC=C*l 

560  TL=TL+Vñ_<KÍD*<A*.C, 1 > >*2tíX-l ) 


570  MEXTX 
580  ND<D)-=TL 
590  NEXTB 

600  PPiINT“ECLR3“  sREM  C0MIEN20  OP  SPR 
ITE 

610  V-53248 
620  POKEV+21,28 

630  POKE2042.I3sPOKE2044,13sPOKE2043 
,13 

640  F0RN«0T062iP0KE832*N,N0<N> íNEXT 
650  POKEV*23, 12sP0KEV*29, 12 sREM 
660  FORJ-lTO10sFORX=0TO200 
670  POKEV *4 , X  s  POKEV+8 , X 
680  POKEV*5,XsPOKEV*9,100 
690  NEXTJ  sNEXTX 

700  PRINT-ECLR3-sPOKE781,5sPOKE782,2 

4  sPRINTTAB< 16> i “ EVEL 3 PULSEE SPC  3F 1 " 

710  GETK* s IFK*=” “THEN710 

720  I FK *=CHR*  < 1 33  >  THENPOKE53280 , 2  s  PO 

KE53281 ,14sG0T0255 

730  I  FK* OCHR#  <  1 33  >  THEN7 1 0 

740  ENO 

1000  PRINT” ECLR3” sPRINT sCLR 
1010  PRINTTAB<4> ; "CRVS0N3 INTROOUCC 10 
NESPC30EESPC3DAT0SESPC30ECIMALES  s” sP 
RINT sPRINT 

1020  DINNP<70)sFORZ»0TO62 

1030  PRINT-DATOESPC3DECIMALISPC3NHME 

RO“  ;2;  -  ESPC3”  j  s  INPUTNP<’Z> 

1040  NEXT 

1050  V=53248 SPRINT” CCLR3- 

1060  POKEV*21.28sPOKE2042,13sPOKE204 

3,13sPOKE2044.13 

1070  FORN=0TO62sPOKE832*N.NP<N> sNEXT 

1080  P0KEV*23, 12  sP0KEV*29, 12 
1090  FORJ*=1TO10  >FORX“0TO200 
1100  P0KEV*4,XsP0KEV*8,XsP0KEV*5.XtP 
OKEV+9, 100 

1110  NEXTXsNEXTJ sPRINT" ECLR3" 

1120  P0KE781 ,5 1P0KE782 ,24  sPRINT  TAB< 
I6>  » " rVELJPULSAt SPC3F 1 ” 

1130  OETJ*iIFJ*““ “THEN1 130 

1140  I F J*=CHR*  <133) THENPOKE53280 , 2  s  P 

0KE53281 , 1 4  s  POKE646 , 1 SG0T0255 

1150  IFJ*OCHR*<  1333THEN1 130 

1 1 60  ENO 


grabar  la  primera.  La  segunda  parte  debe  grabarse  inmediatamente 
después  de  la  primera.  Cuando  hagamos  LOAD  y  RUN  de  la  primera 
parte  el  VIC  nos  avisará  para  que  entremos  la  segunda  parte  y  poda¬ 
mos  empezar  el  juego. 


LISTADO  1 

1  P0KE36879.238sP0KE36885.242 

2  P0KE52.28 sP0KE5t>,28 

3  PRINT- ECLR3  E4CRSRD3  E3CRSRR3  E8LU3** 
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«**+*«***»****" SPRINT" C3CRSRR3*CBLK1 
CSHIFTR3ENECSPC3tSHIFTR300RIGUEZ£BLU3 

*” 

5  PR I NT “ C 3CRSRR 3*C 5SPC 3 C BLK 3 1 984 C 5SPC 3 
CBLU3*" 

6  PRI  NT"  C  BLU 3  C  3CRSRR 3  ****♦*«**>#♦*♦♦♦ 

*" SPRINT" C3CRSRDÍ  C2CRSRR3  CSHIFTP JRES 
ENTH  s " sFORT» l TO2000  sNEXT 

7  PR I N  T " C  CRSRR J  C  2CRSRD  3 1 CRSRR 3  C  WHT  3 [ 4CRSRR 3 
tSHlFTB3LRCKtSPC3  CSHIFTD30G" sFORT=lT 
03000  SNEXT 

10  PRINT” ICLR3  CCRSRD3  C2CRSRR3 CBLK3  CSHIFTE3 
L  C  SPC  3  JÚC  C  SPC  3C0NS I STE I X  t  SPC  3ENFER  C  SPC  3 
RRRIBRRCSPC3RCSPC3rSHIFTB3LRCKC3SPC3 
FINSCSPC3LRCSPC3SEVRCSPC3CRSETRCSPC3 
RCSPC3TRR" 

15  PRINT" C CRSRU 3 1 3CRSRR  3 VESC  SPC 3DELS 
CSPC3DIFERENTSCSPC3CIRCUITS.  “ 

20  PR I NT " 1 2CRSRR 3  C  SH I FTE  3L  C SPC  3 BOTO t SPC  3 
BERNELL  C  SPC  3  SER- VE I XC  SPC 3  PER  C  SPC  3  ÑNfl 
R  C  SPC  3I'IES  C  SPC  3  LEN-TRMENT .  " 

25  PRINT " C 2CRSRR 3 1 SH I FTL 3RCSPC 3PUNTU 
ftC I O  t SPC  3  VE  C  SPC  3 00- 1  SPC  3  NRORC  SPC  3  PER 
CSPC3LRCSPC3DISTRNC1RC  SPC  3  RECORREGUD 
fi  C  SPC  3  I  C  SPC  3  PEL  C  5 SPC  3  TEMPS .  " 

30  PRINT" C2CRSRR3 CSHIFTR3 CSPC3CRORCSPC3 
PRNTRLLRC  SPC  3  EL  C  2SPC  3  TEMPS  C  SPC  3  E  SCOM 
ENCR  C  SPC  3  DE  C  SPC  30. CSPC3CSHIFTS3 I ÍSPC3 
ES C SPC 3FR C SPC 3 TOT C SPC 3EL t SPC 3 RECOR - " 

35  PR I NT “ t CRSRU  3REGUT  C  SPC  3EN  £  SPC  3  MEN 
VS  C  SPC  3  DE  t  SPC  3 45 1 2SPC  3  SEGONS , C  SPC  3  ES 
C  CRSRR  3 GURN VEN C  4SPC 3PUNTS . C  SPC  3  C  SH I F TS  3 
I CSPC3ESCSPC3TRIGRCSPC3MESESCSPC3RES 
TEN.  " 

40  PRINT" CCRSR03CCRSRR3 CSHIFTR3PRETR 
ESPC3ESPRI " 

45  GETR»:IFR*0"ESPC3“THEN45 
50  PR I NT  « t  CLR  3  C  2CRSRR  3  C  CRSRD  3 1 SH I FTC  3 
RDRCSPC3 250 E SPC  3OCSPC33G0CSPC3PUNTSL 
RtSPC  3PRNTRLLRESPC3ESESPC  3FRCSPC  3  MES 
CSPC30IFICIL. “ 

55  PR I  NT  “  E  2CRSRR 3  C  SH I FTE  3  L  C  SPC  3N0MBR 
E  C  SPC  3  DE  C SPC  3C0PS C  3SPC 3  QUE  E  SPC  3  E  SH I FTB  3 
LRCK [ SPC 3 POT t SPC 3 SER C SPC 3 R TRfl-PR T t SPC 3 
ESCSPC33. " 

60  PRINT" ECRSR03  E 3CRSRR3  ESHIFTB30NRESPC3 
SORT'  '  ! " sF0RT= 1 TO5000 sNEXT  :PR INT" E2CRSR03 
ECRSRR3  ESHIFTR3PRETRESPC3ESPRI " 

65  GETB*  :  IFB«>“  CSPC3“THEN65 
70  PRINT"! CLR 3 1 CRSRD 3 E CRSRR 3 1 SH I FTU 3 


N  C  SPC  3  MOMEN  T  C  SPC  3  QUE  t  SPC  3 CRRREGO C  SPC  3 
ELI SPC  3  PROGRRMR . “ 

¡  74  F0RT=7 1 68TO7680 : POKET , PEEK  <  T+2560 
0) :NEXT 

75  F 0RT=7344TO7343+ 1 0*8 : REROfi  s POKET , 
R:NEXT 

|  80  DRTR126, 102,66,90,94, 126,255,0,40 
,56,56,16,56,56,40,40 
82  DRTR64, 194,252,60,60,38,50,2,64,1 
|  94,252,60,60,102,195,0 

84  DRTR0,0,99, 127,62, 127,99,0,2,67,6 
3,60,60,102,195,0 

86  DRT R2 ,67,63, 60 , 60 , 100,76,64,0,0,0 
,60,60,126,126,255 

88  DRTR126, 102,66,66,66,66,255,0,0,2 
55,168,216,168,80,32,0 
95  PR 1 NT " t  CLR  3 " : POKE 1 98 , 7  s P0KE63 1 , 76 
: P0KE632 , 207 : P0KE633 ,159: P0KE634 , 1 3 
1 00  P0KE635, 82 :P0KE636, 21 3  «P0KE637 , 1 
3  :P0KE36885 ,240 


LISTADO  2 

1  POKE36879,238 

2  P0KE36878, 15:H=27 

3  2=7680: I“36875:V=1 

5  P0KE52,28:P0KE56,28:P0KE36869,255 

9  PRINT“CCLR3“ 

10  FORN=0TO19 

11  P0KE7724+N,26 

12  P0KE7856+N , 26 

13  P0KE7988*N,26 

14  P0KE8 1 20+N , 26 

15  P0KE8 1 22+N , 26 

16  NEXTN 

20  F0RM=2T021 

21  POKE7790+M , 26 

22  P0KE7922+M , 26 

23  POKE8054+M , 26 

24  NEXTM : FORT= 1 T02 : POKE7680+ < 18+T>*2 
2-2,28-t-T  :POKE38860-22*T  ,5*T-3  :NEXT 

25  PR  I  NT  “  C  20CRSRD  3  " 

26  P0KE37 151,0 :PR=37 151 :PB=3?152 :RB= 

37154 

28  F0RT= 1 TO2000 :NEXT :PR INT " C CRSRU 3 1 3CRSRR3 
CBLK3CRMI CSPC3LLIURE ! • ' " :POKE36875,2 
25  :FORT=1TO500:NEXT :V=1 


PIDELOS  POR  CORREO 


Embajadores  90  -  28012-MADRID  Tel.  227  09  80 


LLEVATE  DOS  POR  EL  PRECIO  DE  UNO 
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►  [  29  PGKE36875.0  SPRINT" CCRSRUJ  C 19SPCI " 

sTI *=“800000" 

30  P0KEZ+X+22.V+ 30720, 0 sP0KEZ+X+22*Y 

32  R=PEEK<PR>  sPOKERB, 127 sB=PEEK<PB>  : 
P0KERB.255 

36  PRINT" CCRSRUI “L;TR6(9>MID*<  T I  *  ,4 , 
l >" s“IIID*<TI*,5,2>;TRB<18>3-V 
38  I FTI*>= "000045" THENPOFE 1,1 90 sIFTI 
*>=“000100 “THENDV=0:TI *="000000" :GOT 
0120 

45  IF<6RNO12S>=0THENX=X+1  sOV=-4  sL=L+ 

1 sPOKE 1,190 :H=27  SGOTO50 
I  46  I F  <  RRND 1 6  .>  =0THENX=X— 1  sDV=l  :L=L+1  : 
POKEI , 190 sH=24 SGOTO50 

47  IF<RRND4 >=0THENV=V— 1 sDV=22 sH=23 sG 
OTO50 

48  IF<RRND8>=0THENY=V+1 :OV=-22sH=23 

50  IF<RRNO32>=0THENFORT=1 TÜ50  sNEXT 

51  POKEI, 0sIFINT<L/'2>=L/2RNDHO23THE 
NH=28 : IFDV= 1 THENH=25 

55  I FPEEK  <  Z+X+22.S* >  =26THEN 1 20 
60  IFX=-10RX=220RV=— 1 THEN120 
65  IFX=28RN0V=19THENP0KE38838,2sP0KE 
38816,7 SPOKE8096, 29 sP0KE81 18,22 sPOKE 
|  81 1?,32:G0T0135 
[  70  POKEZ+X+22.Y+DV,32sGOTO30 

120  P0KEZ+X+22.V+0V, 31 sPOKE 1,0 

1 2 1  P0KE3Ó877 , 200  s FORT= 1 TO 1 00  sNEXT  sP 
0KE36877 , 225 sFORT=lTO100  sNEXT  SP0KE36 
877,0 

123  V-V+ 1  : 1FV>=3THENPR I NT” CCLR1 C4CRSR0I 
C  3CRSRR  J  HRS I SPC I FE T “ L " PON  TS “ s  ENO 

124  FORT=1TO500 sNEXT 

125  POKEZ+X+22*V+OV,32sX=05Y=l sOV=0 

126  GOTO30 

130  Ll=-90sLL=L+Ll s GOTO 136 

135  Ll=7*<45— VRL<TI*) ) sLL=L+50+Ll 

136  FORJ= 1 T05 

1 40  POKE36876,200  sFORT= 1 TO 100  sNEXT  sP 
0KE36876 , 220  s  FORT= 1 TO 1 00  s  NEXT sP0KE3ó 
876,0 

141  NEXTJ 

144  PR 1NT " CCLR 3 [ 3CRSR03  CCRSRRIHhSCSPC I 


OFERTA  DE  TRABAJO 
¡URGENTE! 


PROGRAMADOR 

(...O  CASI...) 

DIEGO  Y  ALVARO  NECESITAN 
AYUDANTE  (QUE  SEA  BUENO/A) 
PARA  COMPROBACION  DE 
PROGRAMAS  QUE  QUIERA 
APRENDER  MUCHO  Y  TRABAJAR 
UN  MONTON, 
RESIDENTE  EN  MADRID 
Y  BUENA  COMPRENSION 
DEL  INGLES 

(...NO  NECESITA  HABLARLO...) 

Contactar  con: 

COMMODORE  WORLD 
C/ Barquillo,  21  -  3>  hia. 

28004  Madrid  ■  Telf  231  23  88  -  95 


FET  “  L  *50  "  PUNTS  "  sPRINT"CCRSROHCRSRRJ 
I “ L 1 " PER  C  SPC I TEMPS=  C  WHT  3 “LL  s  L=LL 
|  145  FORT=1TO3500 sNEXT 

146  X=0sV=l 

147  IFLC300THEN9 

148  PR I NT “ I CLR I “ 

I  150  FORG=0TO7 

152  P0KE7724+G,26  sP0KE7792+G,26  sPOKE 
|  7856+G,26  sPOKE 7924+0,26  sP0KE7988+G,2 

6 

155  POKE8056+G , 26 
,  156  NEXTG 

160  P0KE7868.26 

165  P0KE7933 , 26 

166  F0RS=14T019 
170  POKE8000 , 26 

I  181  F0RS=14T019 

|  182  P0KE7724+S , 26  s P0KE7792+S , 26  sPOKE 

7856+S , 26  sPOKE 7924+S, 26  sP0KE7988+S ,2 

I  6 

183  POKE8056+S , 26 

184  NEXTS 

190  FORQ=0TO17 

1 95  POKE7690+22.O , 26  s  P0KE7737+22.Q , 2 
6 

200  NEXTQ 
205  FORR=0TO21 
210  POKE8120+R.26 
|  214  NEXTR 

I  215  PRINT"  C20CRSRO1  *’ 

218  IFL>500THENW=3 
¡  219  IFL>750THENN=7 

220  I FL> 1 000THENW=24 

221  F0RJ=1T0W  sREROR  sP0KEZ+R,26  sNEXT  s 
RESTORE 

I  222  FORT=lTO2sPOKE7680+<18+T>*22-2,2 
8+T  s  POKE38860-22.T , 5*T-3  s  NEXT 
225  G0T023 

j  230  DRTR 1 2 1 , 56 , 385 , 73 , 90 , 349 , 368 , 205 
|  ,222,266,293.33 7 

235  ORTR104, 85, 354, 305, 161, 134, 148,1 
73,217,236,280,365 


OPORTUNIDAD 


Por  cambio  de  negocio 
se  venden 
muebles  de  oficina 
en  lote  completo 
o  por  separado. 

(Todo  el  mobiliario  de  diez  despachos, 
sala  de  juntas,  etc.) 


Preguntar  por  Angel  Rodríguez- 
Teléfonos  231  25  17  y  131  24  62 
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PIRATERIA  DE  SOFT 
...Y  ALGO  MAS 


(Viene  de  pág.  57) 

Para  aligerar  y  simplificar  los  intercambios  y  contactos  intercom- 
modorianos,  los  que  no  deseen  otro  tipo  de  compra-venta,  etc.,  enviad¬ 
nos  el  cupón  que,  a  partir  de  hoy,  aparece  en  la  revista  en  la  misma 
sección  de  Marketclub,  una  inserción  por  cupón. 

7)  La  carta  que  se  refiere  a  RUN  la  hemos  insertado  en  estas  pági¬ 
nas  porque,  aunque  no  siendo  lo  mismo,  tiene  bastantes  similitudes. 

Nunca  hemos  hecho  ningún  secreto  de  que  RUN  americana,  ale¬ 
mana,  danesa,  etc.,  sean  de  la  misma  compañía  C.W.  Communications 
(ver  pág.  3).  De  hecho  es  un  nombre  que  tenemos  registrado  internacio¬ 
nalmente.  Muchos  de  estos  artículos  aparecen  en  las  diversas  nacionales 
en  distintos  idiomas.  Los  listados  no  son  idénticos,  varían  según  la 
adaptación  hecha  al  idioma  nacional.  Antes  no  especificábamos  los  que 

eran  traducidos,  solamente  firmábamos  los  nacionales.  Desde  el  n“  8  de 

octubre  del  84.  lu  ponemos  en  todos  — autor,  traductor  y  adaptador — 
para  que  quede  bien  claro  su  procedencia. 

C  onocemos  Compute,  Compute's  Gazzete  y  bastantes  otras,  pero  no, 
son  nuestras  y  por  lo  tanto  no  tenemos  derecho  a  utilizar  su  material. 

Y  aquí  es  donde  aparece  la  simiralidad. 

La  mayoría  de  las  revistas  de  informática,  impresas  o  en  cassette, 
tienen  material  traducido  en  mayores  o  menores  cantidades,  bien  por 
derecho  propio,  como  en  nuestro  caso,  bien  por  copy-rights.  Y  hay 
algunas  —sobre  todo  en  forma  de  cassette —  que  no  lo  tienen  pero  se  lo 
inventan.  Al  igual  que  se  utilizan  nombre  y  autorías  sin  permiso  o  sin 
respeto  alguno  a  los  registros  de  marcas. 

Tampoco  es  nuestra  misión  aquí,  hacer  acusaciones  concretas  ya  que 
los  casos  que  están  ante  los  tribunales  son  éstos  los  que  deben  dictaminar 
y  — lamentablemente —  en  Kspaña  se  mueven  muy  despacio  y  sin  medi¬ 
das  provisionales.  \  si  se  refiere  a  los  casos  de  auténtica  copia  robada 
pero  por  parte  de  "revistas"  en  forma  de  cassette,  entonces  ya  es  el  caos. 


y  en  estos  casos  los  beneficios  si  que  son  astronómicos  porque  nos 
metemos  en  cifras  de  millones. 

Por  favor,  a  ver  si  hay  algún  señor  legislador  que  lea  esto,  conozca  lo 
que  es  la  informática  y  con  qué  se  come  eso  del  soft  y  comience  a  pensar 
en  la  necesidad  de  lomar  medidas  legales  urgentemente  o  presionar  para 
que  se  tomen.  Y  esta  denuncia  que  hacemos  no  es  precisamente  porque 
nos  afecte  a  nosotros  que  no  nos  dedicamos  a  ello,  ni  tenemos  anuncian¬ 
tes  de  este  tipo. 

8)  A.J.  de  San  Sebastián  nos  dice  que  no  sabe  quién  es  el  autor  del 
articulo. 

De  los  editoriales  se  hacen  responsables  las  revistas,  periódicos,  etc., 
en  conjunto.  En  Commodore  World,  el  autor  básico,  suele  ser  Vlaria 
López  que  dirige  la  revista.  Este  es  el  caso  tanto  del  editorial  en  cuestión 
como  de  esta  respuesta. 

9)  Y  ya  para  terminar  y  antes  de  que  alguno  de  vosotros  se  nos  eche 

Ya  sé  que  según  la  regla  de  tres  apuntada,  nuestro  servicio  de  cintas 

puede  parecer  abusivísimo  y  la  revista  en  disco,  sin  embargo,  bastante 

decente.  Hay  una  gran  diferencia.  Los  discos  no  se  hacen  uno  a  uno 
sobre  petición,  se  hace  una  tirada  determinada  y  se  vende  o  se  envía 
hasta  que  se  agote. 

La  cinta,  sin  embargo,  se  graba  cada  cual  por  separado  sobre  pedido 
concreto  y  nos  topamos  con  el  problema  de  compañía.  Hay  que  conec¬ 
tar,  desconectar,  buscar  ese  programa  concreto,  alguien  tiene  que  dejar 
lo  que  está  haciendo...  la  cadena...  traducido  en  personal  y  tiempo  de 
trabajo.  Por  eso  estamos  intentando  buscar  una  forma  de  grabación 
turbo  que  no  se  atasque  en  el. 50%  de  los  cassettes  Commodore  y  poder 
ofrecer  en  cinta  el  mismo  servicio  que  en  disco,  no  programas  sueltos, 
sino  la  revista  completa  a  un  precio  razonable.  En  cuanto  resolvamos  el 
problema  lo  anunciaremos  pero  nos  está  dando  más  quebraderos  de 
cabeza  de  los  que  pensábamos  originalmente. 


Fallo  del  I  Concurso  Nacional 
de  Programación  Escolar 


El  sábado  día  20,  en  Informal,  se  fallaron  los  premios  del  I  Con¬ 
curso  Nacional  de  Programación  Escolar  en  la  Sala  de  protocolo  de  la 
Feria  de  Barcelona. 

Solamente  unas  lineas  muy  rápidas  de  ultisima  hora  para  incluir  la 
noticia  en  este  número,  al  cierre. 

El  próximo  mes,  daremos  la  información  completa. 

Los  ganadores  han  sido: 

Categoría  FP 

Centro  de  estudios:  Instituto  de  FP  "El  Vendrell"  de  Vendrell 
(Tarragona). 

Equipo:  Gloria  Olive  Marti.  M.J  Antonia  Miravenl  Pujol  (3.er  curso 
de  2“  grado  de  FP,  rama  Administrativa  y  Comercio). 

Profesor  coordinador:  Jordi  Francesch  Rovira. 

Programa:  "PENINBAS"  (programa  de  simulación  de  funciona¬ 
miento  interno  del  ordenador). 

Ordenador  utilizado:  PC  y  compatibles. 


Categoría  BUP 

Centro  de  estudios:  Inst.  José  de  Churriguera  de  Leganés  (Madrid). 
Equipo:  José  Miguel  Moreno  Muías  (38  de  BUP). 


Profesor  coordinador:  Juan  José  Hernández. 
Programa:  "Lápiz  Digital" 

Ordenador  utilizado:  VIC-20  con  Superexpander 


Categoría  EGB 

(Este  premio  ha  quedado  desierto  por  falta  de  calidad  de  los  pro¬ 
gramas  enviados,  por  lo  que  ha  sido  pasado  al  segundo  finalista  de  la 
categoría  BUP). 

Centro  de  estudios:  Instituto  de  Bachillerato  Cardenal  Herrera 
Oria. 

Equipo:  DATA  100  formado  por  Félix  Herrera  Piña  y  Juan  José 
García  Oterino  (3“  de  BUP). 

Profesor  coordinador:  Javier  Zabala-Camarero  Núñez. 

Programa:  "Derivada  de  una  función  en  un  punto". 

Ordenador  utilizado:  C-64  con  Simon's  Basic. 


Debido  a  un  problema  técnico  de  última  hora  hemos  tenido  que 
aplazar  para  el  próximo  mes  el  programa  "VIC-20  Multicolor " 
anunciado  anteriormente  para  este  número. 
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EXCURSION  POR  LA  MICROPROGRAMACION 


Rincón 

del  Código  Máquina 


En  este  número  veremos  otra 
rutina  de  utilidad  para 
aquellos  que  deseen  hacerse 
us  propios  programas  en  Basic, 
ero  que  no  quieran  estar  limita¬ 
os  por  la  velocidad  del  intér¬ 
nete  en  las  rutinas  lentas. 

Se  trata  de  una  rutina  en 
ódigo  máquina  que  permite  cla- 
ificar  por  orden  alfabético  los 
lementos  de  una  matriz  de 
:adenas  de  caracteres  (sirings). 

„a  ventaja  de  hacerlo  en  código 
náquina  es  su  velocidad,  y  para 
ener  idea  de  lo  rápido  que  clasi¬ 
fica,  podéis  ver  la  siguiente  tabla 
comparativa  de  tiempos: 

Elementos  Longitud  Basic  C  M. 

10  10  1,3  0,017 

100  10  119.2  0,800 

loo  40  130,5  0,817 

1000  10  •*“**  82,400 

(Los  tiempos  de  la  tabla  son  segundos) 

•  ••**  En  la  tabla  no  figura  el 
tiempo  de  clasificación  de  mil 
elementos  de  diez  caracteres  de 
longitud  en  Basic,  ya  que  una 
hora  después  de  empezar  a  orde¬ 
nar  la  matriz  sólo  tenía  clasifica¬ 
dos  los  ciento  treinta  primeros.  Si 
alguien  lo  desea  puede  esperar  a 
que  el  programa  termine  y  me 
cuenta  cuánto  tarda  en  hacerlo. 

La  rutina  puede  cargarse  con 
cualquiera  de  los  siguientes  mé¬ 
todos: 

L— Con  la  ayuda  de  un  ensam¬ 
blador.  por  ejemplo  el  Macro 
Assembler  de  Commodore,  te¬ 
cleando  el  listado  1  y  ensamblán¬ 
dolo  posteriormente. 

2. — Con  la  ayuda  de  algún 
monitor  de  código  máquina  in¬ 
troduciendo  el  listado  hexadeci- 
mal  (listado  2). 

3 —Tecleando  el  programa  car¬ 
gador  Basic  del  listado  3. 

Una  vez  que  se  ha  cargado  la 
rutina  de  código  máquina  en  la 
memoria,  se  debe  guardar  en 
cinta  o  disco  antes  de  probarla,  y 


luego  teclear  el  listado  4  que  sirve 
para  demostrar  el  funcionamiento 
de  la  rutina. 

Con  el  programa  del  listado  4 
podemos  comprobar  el  tiempo 
que  tarda  el  programa  de  código 
máquina  para  distintas  cantida¬ 
des  de  elementos  y  longitudes  de 
estos.  También  podemos  medir 
la  velocidad  del  simil  de  Basic 
que  aparece  en  el  listado  5. 

La  rutina  de  clasificación  del 
listado  5  (subrutina  1000)  no  es  la 
mejor  que  se  puede  hacer  para 
clasificar  en  Basic,  tampoco  es  la 
más  rápida  (ni  la  más  lenta),  pero 
es  muy  sencilla  y  se  puede  pasar  a 
código  máquina  fácilmente,  sir¬ 
viendo  en  este  caso  para  ilustrar 
un  poco  la  función  de  cada  parte 
del  programa  de  código  máquina 
y  permite  que  podamos  entender 
el  funcionamiento  del  programa 
en  lenguaje  ensamblador  con 
ayuda  de  los  comentarios  del 
margen  derecho  del  listado. 

Para  hacer  muy  sencilla  la 
rutina  debemos  tener  algunas 
limitaciones,  que  en  este  caso 
son:  las  matrices  de  cadenas  (de 
stjings)  que  podemos  clasificar 
deben  ser  de  una  sola  dimensión, 
y  el  programa  no  comprueba  si  lo 
son  o  no.  Si  le  pedimos  que  clasi¬ 
fique  una  matriz  definida  por  un 


D1M  Z$  (100.3).  el  programa  des¬ 
trozará  muchas  de  las  variables 
almacenadas  en  memoria,  ya  que 
considera  que  se  trata  de  una 
matriz  sencilla  como  la  definida 
por  D1M  ZS  (100). 

La  segunda  limitación  impor¬ 
tante  es  que  debemos  dar  a  la 
matriz  un  elemento  más  de  los 
que  precisemos,  ya  que  para 
saber  cuál  es  el  último  elemento 
al  ordenarla  comprueba  que  sea 
un  string  nulo  y  si  no  lo 
encontrase  también  destrozaría 
algunas  variables.  Aunque  po¬ 
díamos  haber  diseñado  la  rutina 
de  modo  que  clasificase  todos  los 
elementos  de  la  matriz  sin  nece¬ 
sidad  de  este  elemento  “aña¬ 
dido",  lo  he  evitado,  ya  que  en  el 
segundo  caso  si  la  matriz  no 
estuviese  totalmente  llena  de 
cadenas  podríamos  obtener  como 
resultado  de  la  clasificación  un 
montón  de  cadenas  vacías  en  el 
lugar  de  los  primeros  elementos 
de  la  matriz,  y  todos  los  elemen¬ 
tos  ocupados  pasarían  a  estar  al 
final  de  la  matriz. 

Un  detalle  también  importante 
es  el  modo  de  llamar  a  la  rutina, 
se  hace  con  el  SYS  828  seguido  de 
una  coma  y  el  primer  elemento 
de  la  matriz  a  clasificar.  Este 
modo  de  llamar  a  la  rutina  per¬ 
mite  clasificar  las  matrices  a  par¬ 
tir  de  un  cierto  elemento  sin  alte¬ 
rar  el  orden  de  los  primeros.  Si 
llamamos  a  la  rutina  con: 

SYS  828,  A$(2) 

Clasificará  la  matriz  A$(n)  a 
partir  del  elemento  segundo, 
dejando  intactos  A$(0)  y  A$(l). 

Como  el  espacio  es  limitado  y 
los  listados  son  muchos,  dejo  que 
veáis  los  programas  ya  que  el 
mejor  modo  de  aprender  es  estu¬ 
diando  el  funcionamiento  de 
programas  realizados  por  otros. 

Un  detalle  interesante  que  se 
i  quedaba  atrás  es  que  todos  los 
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saltos  y  direccionamientos  abso¬ 
lutos  los  he  evitado  para  permitir 
que  la  rutina  pueda  relocalizarse 
en  cualquier  posición  de  memo¬ 
ria,  por  lo  que  si  deseáis  podéis 
colocarlo  al  final  de  la  RAM  y 
bajar  el  vector  de  fin  de  memoria 
con  los  populares  POKEs  a  las 
posiciones  55  y  56. 

Aquellos  que  quieran  usar  esta 
rutina  en  un  VIC-20,  deberán 
modificar  solamente  las  direc¬ 
ciones  de  las  llamadas  a  las  ruti¬ 
nas  BUSVAR  y  BUSCOM que 
en  el  VIC  son  SD08B  y  Ü.CEFD 

respectivamente,  en  lugar  de 
SB08B  y  SBEFD  que  correspon¬ 
den  al  C-64. 

Si  a  alguien  se  le  ocurre  la 
“genial  idea"  de  comprobar  cuán¬ 
to  tarda  el  programa  Basic  en 
clasificar  los  ciento  treinta  ele¬ 
mentos  de  diez  caracteres  de  lon¬ 
gitud,  verá  que  no  es  una  hora,  es 
>  mucho  menos.  Pero  si  se  le  ocu¬ 
rre  probar  los  mil  elementos  de 
\  caracteres  de  longitud  y  una  hora 
después  de  comenzar  la  clasifica¬ 


ción  pulsa  la  tecla  Stop,  verá 
haciendo  PRINT  I  el  número  por 
el  que  va  la  clasificación.  La 
causa  de  esta  diferencia  de 
tiempo  en  clasificar  por  orden 
alfabético  unos  ciento  treinta 
elementos  es  que  en  el  caso  de  los 
mil  elementos,  debe  hacer  más 
comparaciones,  y  para  mayor 
desgracia  nuestra,  el  intérprete 
basic  suele  hacer  la  jugada  de 
detener  la  ejecución  del  pro¬ 
grama  durante  más  tiempo  y  más 
frecuentemente  cuanto  mayor 
número  de  variables  tenga  el 
programa.  Durante  el  tiempo  que 
se  para,  se  dedica  a  recuperar  los 
bytes  que  tiene  libres  entre  las 
diferentes  variables,  esto  lo  hace 
por  medio  de  una  rutina  llamada 
“garbage  colection”. 

Gracias  a  que  nuestra  rutina  de 
código  máquina  no  mueve  las 
posiciones  de  las  variables,  nunca 
se  llama  a  esta  rutina.  El  pro¬ 
grama  de  código  máquina  sólo 
intercambia  los  punteros  de  los 
elementos  de  la  matriz  sin  cam¬ 
biar  la  posición  de  las  cadenas  de 


caracteres,  de  este  modo  no  des¬ 
perdicia  “huecos"  y  no  es  necesa¬ 
rio  recuperar  los  bytes  libres.  ^ 

Si  queréis  probar  “a  mano"  el 
tiempo  que  tarda  en  ejecutarse  la 
rutina  de  recolección  de  basura, 
podéis  hacerlo  tecleando  PRINT 
FREE  (0),  y  viendo  el  tiempo  que 
tarda  en  aparecer  el  resultado. 
Este  aparecerá  inmediatamente  si 
no  tenéis  variables,  pero  si  habéis  I 
ejecutado  el  programa  que  define 
la  matriz  a$  con  unos  mil  elemen¬ 
tos  de  diez  caracteres  y  los  llena 
de  modo  aleatorio,  podéis  espe¬ 
rar  casi  medio  minuto  a  que  con¬ 
teste  el  resultado. 

Naturalmente  si  hacéis  pruebas 
con  matrices  muy  grandes  conse¬ 
guiréis  el  error  “out  of  memory”, 
ya  que  la  memoria  está  limitada, 
sobre  todo  para  los  propietarios 
del  VIC-20. 

En  el  próximo  número  prepa¬ 
raré  una  rutina  de  búsqueda  en 
código  máquina,  de  modo  que 
podamos  combinarla  con  ésta 
para  utilizarla  en  un  programa  de 
base  de  datos  casero  pero  rápido. 


«33C 

033C 

033C 

033C 

033C 

033C 

033C 

033C 

033C  20  FD  HE 
033F  20  8B  BÉ 
0342  85  68 
0344  84  6B 
0346  80  00 
0348  B1  68 
0348  F0  78 
¡  034C  85  6E 

i  034E  C8 
i  034F  Bt  68 
:  0351  99  6E  » 

!  0354  C0  02 

i  0356  D0  Fó 
s  0358  85  68 
,  0358  85  6C 

i  035C  85  6B 

i  035E  85  60 

:  0360  18 

:  0361  85  6C 

:  0363  69  03 

ii  0365  85  6C 
li  0367  90  02 
l:  0369  E6  60 


J  ESTE  PROGRAMA  SIRVE  P8R8  ORDENAR 
;  C80EN8S  DE  C8R8CTERES  DE  BASIC 
)  H8C IEN00L0  EN  COOIGO  HRQUINR. 

Ámt.IT  -  *FF  >  LONGITUD  MENOR 

¿SCOM  -  S8EFD  ;  BUSCR  C0M8 

IJSV8R  -  *6086  ;  BUSCR  V8RI8BLE 

YfOZ  .  ,68  ,  PRIMER  ELEMENTO  OE  M8TRI2 

¡EME2  -  *6C  ;  SEGUNDO  ELEMENTO 

OINT1  -  *6E  >  PUNTERO  8  PRIMER  STRING 

S!nÍ2  =  *FC  ;  PUNTERO  RL  SEGUNDO 

,TOot  tcd  BUSCOM  ;  BUSCR  Lfl  COMB 

*  jSR  BUSVRR  ;  CRLCULR  DIRECCION  DEL 

STR  ELEME1  ;  PRIMER  ELEMENTO  DE 

cjv  ELEME1+1  f  Lñ  MRTRIZ. 
ti «10  LDV  #0  >  ESTO  COMPRUEBR  SI  Lñ 

-11010  LD8  ^LEME1>!v  ,  LONGITUD  DEL  PRIMER 
BEQ  FIN  1  STRING  ES  CERO. 

STB  POINT1  t  LB  GU8RD8  SI  NO  ES  CERO 


;  AQUI  N8CE  LO  MISMO 
;  QUE  EL  J-I  DEL 

,  EQUIVALENTE  BASIC. 

,  AQUI  HACE  LO  MISMO 
,  QUE  EL  J-J+l  DEL  BASIC 
;  (APUNTA  AL  SIGUIENTE 
.  ELEMENTO  DE  LA  MATRIZ > 

;  SALTA  SI  NO  HAY  ACARREO 
;  EN  LA  SUMA. 
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**>  /vC°T^l  íÍgUNOO  ELEMENTO 

swTsísj»- 

LAS  DOS. 


BEQ  - - 

STB  POINT2 
CMP  P01NT1 
BCC  HAVOR 
LDA  PO I NT  1 
STB  LONGIT 

LDB  <ELEME2>,V 
STfl  POINT2,V 
CPV  *2 
BNE  LB201 
LOV  *0 

LOO  <P°INT.  -  oe  los  uus 

i-TB  SI  SON  IOUBLES. 


ronPBRB  CBOB  LETRA 
«ToTdos  strings 


intercambia  los  strings 
letra,  salta  si  quedan 
,  rSoiT^L  pri«e«o 

•  SALTA  SI  ES  MENOR. 

.«-rssress-»» 

HHCE  el  equivalente 
AL  fl|(I)*ft*<J)- 


hace  el  A*CJ)-B* 


<f 

gl 

I 

I 

I 


„CO«5IOH  pon  “ 

TZrn  18®  PR1NIíl^^VS828,fl*<®’sT** 


'“•í-177  ¡nr»» 

£.  «■«  100,U0,20<,'‘776‘5  .i*  .U,* 

i  '°  Q  ,00  2,208,246, 165,106' 

852  OflTB  I»2'2'  .65,108, 

1  08  _  .<,=  187 , 133, 109'24 , 1 

860  DAT*  16  '  109,160 

185  3  133, 108' 144,2,230, 10“' 

1  868  „  177  » 
,«  OBTB  9,1  ' 

684  DHTñ  U0pl44'  '  192,2,208 

00  .77  108,153,252,0^^ 

I8"  246  60  8,1  — "2 

900  OBTB  246,16  g 

1  40  nQTR  4  144, 209 ,176,9  200,1» 
i  988  ,,,  196,110-. 76,190,160 

916  0"TR  208,2  ..  .,,  .as.MS.ie6 


916  DBTB  208,0^7  ,  10ó 

*0  „  106  170, 177 , 108, 145' 1®° 

^24  DBTB  177, 106' ^  ^  3 

'l73D8Tfl  110, 0,13»'145'108' 

932  DBTB  106,133,2 

940  OBTB  208,238,168.  '  '  J 

- 

LISTADO  4 

>“  f„|3í,W«>-i9001,-OHO,TUO  ' 

_  -  0L.\  .UaM-1 


- ~  1=0  TO  H:PRIBfB*<I>iHEXT 

,lS^N-0^-4svs828'fl,<0,,T"TI, I 

sSs^ 

240  END 


LISTBOO  3 

lt-  f^rT'WB0,lSPC3L0H0lTU0»lH,t 

1  v20  DI« 

\2  ^1^a>^S<S®<®>*59+32) 

S  ^T^XTq  H;PRIhT44,H.<1>^T 

1SKhUsSu5^1*..t^t.. 

1^8  TJ4;4  4  “T IEMP0CSPC30B8 

S®SÍS^--^ 

230  PR1NT44.CU0SE4 

240  ENO 

|^sa— 

1SS  ?™&1010 


Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican  en  esta  Revista  han  sido 
ejecutados  en  el  modelo  correspondiente  de  la  gama  de 
ordenadores  COMMODORE.  Para  facilitar  la  edición  de 
los  mismos  en  la  Revista  y  para  mejorar  su  legibilidad  por 
parte  del  usuario,  se  les  ha  sometido  a  ciertas  modificaciones 
mediante  un  programa  escrito  especialmente  para  ello.  Para  los 
programas  destinados  a  los  ordenadores  VIC-20  y  COMMO¬ 
DORE  64,  en  los  que  se  usan  frecuentemente  las  posibilidades 
gradeas  que  aparecen  del  teclado,  se  han  sustituido  los  símbolos 
grádeos  que  aparecen  normalmente  en  los  listados  por  una  serie 
de  letras  entre  corchetes  []  que  indican  la  secuencia  de  teclas  que 
se  deben  pulsar  para  obtener  el  carácter  deseado.  A  continua¬ 
ción  se  da  una  tabla  para  aclarar  la  interpretación  de  las 
indicaciones  entre  corchetes: 

[CRSRD]=  Tecla  cursor  hacia  abajo  (sin  SHIFT) 

(CRSRU]=  Tecla  cursor  hacia  arriba  (con  SHIFT) 

|CRSRR]=  Tecla  cursor  a  la  derecha  (sin  SHIFT) 

|CRSRL]=  Tecla  cursor  a  la  izquierda  (con  SHIFT) 


[HOME]=  Tecla  CLR/HOME  (sin  SHIFT) 

[CLR]=  Tecla  CLR/HOME  (con  SHIFT) 

Las  indicaciones  [BLK]  a  [YEL]  corresponden  a  la  pulsación 
de  las  teclas  de  I  a  8  junto  a  la  tecla  CTRL.  Lo  mismo  sucede 
con  [RVSON]  y  [RVSOF]  respecto  a  la  tecla  CTRL  v  las  teclas  9 
y  10. 

El  resto  de  las  indicaciones  constan  de  la  parte  COMM  o 
SHIF  seguidas  de  una  letra,  número  o  símbolo  —por  ejemplo 
[COMM+]  o  [SHIFA]— .  Esto  indica  que  para  obtener  el  grá¬ 
fico  necesario  en  el  programa  deben  pulsarse  simultáneamente 
las  teclas  COMMODORE  (la  que  lleva  el  logotipo)  o  una  de 
SHIFT  y  la  tecla  indicada  por  la  letra,  el  número  o  el  símbolo, 
en  el  ejemplo  anterior:  COMMODORE  y  +  o  SHIFT  y  A, 
respectivamente. 

En  los  signos  gráficos  además  se  cuenta  el  número  de  veces 
que  aparece.  Por  ejemplo,  [7  CRSRRJ  equivale  a  7  pulsaciones 
de  la  tecla  cursor  a  la  derecha  y  [3  SPC]  tres  pulsaciones  de  la 
barra  espadadora.  • 
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Interface  CW 
para  el  C-64  y  el  VIC-20 

En  este  número  publico  el  más  sencillo  de  los  interfaces 
que  permiten  utilizar  nuestro  transceptor  de  radioaficionado  para  emitir  y  recibir 
en  telegrafía  (CW). 


El  esquema  eléctrico  del  interface  com¬ 
pleto  aparece  en  la  figura  1,  y  los  valo¬ 
res  de  sus  componentes  aparecen  en  la 
lista  adjunta. 

Este  interface,  siendo  muy  sencillo,  sólo 
necesita  un  pequeño  ajuste.  Para  realizarlo 
deberemos  regular  la  resistencia  ajustable  R- 
6  hasta  que,  en  ausencia  de  señal  de  entrada, 
el  oscilador  del  circuito  integrado  genere  una 
frecuencia  de  850  Hertzios,  esta  señal  podrá 
medirse  con  la  ayuda  de  un  frecuencímetro 
(o  algo  similar)  en  la  patilla  número  5  del 
circuito  integrado. 

Quien  no  disponga  de  un  frecuencímetro 
digital  para  realizar  el  ajuste,  puede  hacerlo 
conectando  el  generador  de  calibrado  de  su 
receptor  y  calibrando  el  dial,  luego  puede 
dcsintonizarlo  unos  800  ó  900  Hz.  Para  que  la 
frecuencia  de  batido  sirva  de  generador  de 
850  Hz.,  entonces  aplicando  la  señal  a  la 
entrada  del  circuito  decodificador  deberá 
variar  el  ajuste  de  R-6  hasta  conseguir  que  el 
diodo  LED  se  ilumine  al  máximo. 

Como  ya  dije  en  otro  articulo,  el  circuito 
integrado  LM-567  no  es  más  que  un  simple 
detector  de  tonos,  pero  permite  recibir  tanto 
telegrafía  como  radio-teletipo.  Este  último  se 
puede  recibir  sintonizando  el  dial  de  modo 
que  uno  de  los  dos  tonos  (marca  o  espa¬ 
cio)  nos  dé  una  señal  de  850  Hz.  Deberemos 
sintonizar  sobre  la  marca  o  sobre  el  espacio 


según  la  estación  esté  transmitiendo  en  los 
modos  normal  o  inverso. 

Por  tanto,  para  recibir  correctamente  una 
estación,  debemos  poner  el  mando  selector 
de  modalidad  de  recepción  en  CW  o  SSB,  y 
mover  el  dial  hasta  recibir  la  señal  deseada 
con  una  frecuencia  de  batido  respecto  a  nues¬ 
tro  oscilador  de  unos  800  Hz.  Si  se  trata  de 
telegrafía  (CW),  no  demos  tener  problemas, 
ya  que  el  programa  publicado  adapta  su 
velocidad  de  trabajo  según  la  cadencia  de 
puntos  y  rayas  recibidas.  Pero  si  deseamos 
recibir  estaciones  de  radioteletipo  tendremos 
que  averiguar,  a  qué  velocidad  transmite 
(generalmente  entre  45  y  75  Baudios).  y  en 
qué  modo  lo  hace  (normal  o  inverso),  para 
ello  sólo  existe  una  solución...  ¡Paciencia!  y 
retocar  muy  despacio  la  sintonía  mientras 
vanamos  la  velocidad  en  el  programa. 

La  parte  de  emisión  no  necesita  ningún 
ajuste,  ya  que  es  un  simple  transistor  que 
actúa  como  interruptor  en  paralelo  con  el 
manipulador,  pero  esto  es  válida  sólo  para 
equipos  transistorizados  que  trabajen  con 
una  pequeña  tensión  positiva  en  el  borne 
activo  del  manipulador,  y  su  borne  pasivo 
es  tierra.  Si  nos  encontramos  frente  a  un  cir¬ 
cuito  que  utiliza  tensión  negativa  o  que  es 
alta,  es  preferible  conectar  un  relé  al  colector 
del  transistor  MC-140,  y  utilizar  los  contac¬ 
tos  del  relé  para  manipular  el  equipo  emisor. 


En  caso  de  dudas  siempre  es  preferible  utili¬ 
zar  el  relé. 

Como  originalmente  este  circuito  está  des¬ 
tinado  solamente  a  la  emisión  y  recepción  de 
telegrafía,  no  puede  utilizarse  para  emitir  en 
radioteletipo.  Hasta  el  momento  no  he 
tenido  tiempo  de  preparar  el  esquema  del 
modem  bueno  para  RTTY,  si  durante  este 
mes  tuviese  tiempo,  aparecería  en  el  próximo 


UNA  ADVERTENCIA  IMPORTANTE 
Ni  la  revista  ni  el  autor  se  responsabilizan 
de  cualquier  daño  que  pudiese  ser  causado 
al  ordenador  o  emisora  por  causa  de  una 
manipulación  o  conexión  indebida ) 


Mucho  cuidado,  pues  un  simple  error  en 
las  conexiones  o  una  delicienlc  toma  de  tie¬ 
rra  en  la  emisora  o  una  tensión  excesiva  pue¬ 
den  dañar  permanentemente  tanto  al  orde¬ 
nador  como  a  la  emisora,  por  tanto  no  es 
recomendable  que  ni  éste  ni  ningún  otro  cir¬ 
cuito  sea  montado  o  conectado  por  personas 
que  no  tengan  el  suficiente  nivel  técnico  para 
realizarlo. 

Lista  de  componentes: 

RESISTENCIAS 
R — 1..10  K 
R — 2..56 
R — 3..680 
R— 4..I0  K 
R-5..I  K 

R— 6..20  k. ajustable 
R-7..I5  K 
CONDENSADORES 
C— I:  22  K 
C — 2:  22  K 
C— 3:  100  uF/16  V 
C— 4:  100  K 
C— 5:  470  K 
C— 6:  100  K 
C— 7:  22  K 
C— 8:  10  K 
C— 9:  100  K 
C— 10:  10  K 

SEMICONDUCTORES 
D— 1:  Diodo  IN4I48 
D— 2:  Diodo  IN4I48 
D— 3:  Diodo  LED  rojo 
T — I:  BC — 107 — B 
T— 2:  BC— 107— B 
T— 3:  MC— 140 
IC— 1:  LM— 567  o  equivalente 
Todas  las  resistencias  están  indicadas  en 
Ohmios,  y  los  condensadores  en  picofara- 
dios,  por  tanto  una  resistencia  de  10  K  será 
de  10.000  Ohmios,  y  un  condensador  de  10  K 
será  de  10  nanofaradios. 
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¡TODOS  LOS  PROGRAMAS 
DE  CADA  LIBRO  ESTAN 
A  SU  DISPOSICION  EN 
DISCO  O  EN  CASETTE! 


Casi  todo  lo  que  se  puede  hacer  con  el  Commodore  64,  está  descrito  detalladamente  en 
este  libro.  Su  lectura  no  es  tan  sólo  tan  apasionante  como  la  de  una  novela,  sino  que  contiene, 
ademas  de  listados  de  útiles  programas,  sobre  todo  muchas,  muchas  aplicaciones 
realizables  en  el  C64.  Se  ha  valorado  especialmente,  que  el  libro  sea  de  fácil  comprensión  para 
los  no  iniciados.  Un  extracto  del  temario:  El  ordenador  escribe  poesías,  tarjetas  de 
invitación,  cartas  publicitarias  personalizadas,  coste  por  kilómetro  de  su  coche,  cálculo  de 
costes  de  construcción,  calculadora  de  bolsillo,  fichero  de  recetas,  inventario,  fichero 
personal  de  la  salud,  plan  electrónico  de  dieta,  diccionario  inteligente,  CAD  para  trabajos 
manuales,  optimización  de  rutas,  escaparates  publicitarios,  juegos  de  estrategia.  En  parte  hay 
listados  de  programas  listos  para  ser  tecleados,  siempre  que  ha  sido  posible  condensar 
•recetas»  en  una  o  dos  páginas.  Si  hasta  el  momento  no  sabía  que  hacer  con  su  Commodore  64, 
¡después  de  leer  este  libro  lo  sabrá  seguro! 

EL  LIBRO  DE  IDEAS  DEL  COMMODORE  64, 1984,  mis  de  200  páginas,  ptas.  1.600,- 
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64  CONSEJOS  Y  TRUCOS 


_ _ _ _ _ _ _ _ más  de  70.000  ejemplares  vendidos  en  Alemania,  es  uno  de  los 

libros  más  vendidos  de  DATA  BECKER.  Es  una  colección  muy  interesante  de  ideas  para  la 
programación  del  Commodore  64,  de  POKEs  y  útiles  rutinas  e  interesantes  programas. 

Del  contenido:  Gráficas  3D  en  Basic  -  gráficas  de  barias  en  colores  -  definición  de  un 
juego  propio  de  caracteres  -  simulación  del  ratón  con  el  joystick  -  Basic  para  avanzados  - 
el  C64  habla  castellano  -  CP/M  en  el  Commodore  64  -  conexión  de  impresoras  a  través  del 
port  de  usuario  -  transmisión  de  datos  desde  y  hacia  otros  ordenadores  -  sintetizador  en 
estéreo  -  recuperar  un  fichero,  que  no  ha  sido  cerrado  correctamente  -  generar  una  línea 
Basic  en  Basic  -  el  buffer  del  cassette  como  memoria  de  datos  -  multitasking  en  el 
Commodore  64  -  la  página  cero  -  GOTO,  GOSUB  y  RESTORE  con  números  de  linea 
calnilad™  -  función  INSTR  y  STRING  -  repetición  automática  de  todas  las  teclas.  Todos  los 
programas  en  lenguaje  máquina  con  programas  cargadores  en  Basic. 
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PEEKS  Y  POKES  PARA  EL  COMMODORE  64 


Con  importantes  comandos  PEEK  y  POKE  se  pueden  hacer  también  desde  el  Basic 
muchas  cosas,  para  las  que  se  necesitarían  normalmente  complejas  rutinas  en  lenguaje 
máquina.  Este  libro  explica  de  manera  sencilla  el  manejo  de  PEEKs  y  POKEs.  Con  una 
|  enorme  cantidad  de  POKEs  importantes  y  su  posible  aplicación.  Para  ello  se  explica 
perfectamente  la  estructura  del  Commodore  64:  Sistema  operativo,  interpretador,  página 
cero,  apuntadores  y  stacks,  generador  de  caracteres,  registros  de  sprites,  programación 
de  interfaces,  desactivación  del  interrupt.  Además  una  introducción  al  lenguaje  máquina. 
Muchos  programas  ejemplo. 
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TODO  SOBRE  EL  CASSETTE  PARA  EL  C-64  Y  VIC-20 


Un  excelente  libro,  que  le  mostrará  todas  las  posibilidades  que  le  ofrece  su  grabadora  de 
casettes.  Describe  detalladamente,  y  de  forma  comprensible,  todo  sobre  el  Datassette  y  la 
grabación  en  cassette.  Con  verdaderos  programas  fuera  de  serie:  Autostart,  Catálogo 
(¡busca  y  carga  automáticamente!),  backup  de  y  a  disco,  SAVE  de  áreas  de  memoria,  y  jo 
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ro  sistema  operativo  de  cassette  con  el  10-20  veces  más  rápido 
;s  y  programas  de  utilidad  (ajuste  de  cabezales. 


MSX 


B  libro  contiene  una  amplia  colección  de  importantes  programas  que  abarcan,  desde  un 
desensamblador  hasta  un  programa  de  clasificaciones  deportivas. 

Juegos  superemocionantes  y  aplicaciones  completas.  Los  programas  muestran  además 
importantes  consejos  y  trucos  para  la  programación. 

Estos  programas  funcionan  en  todos  los  ordenadores  MSX,  así  como  en  el 
SPECTROVIDEO  318  328.  S 

ESTRACTO  DEL  CONTENIDO: 

Volcado  memoria  hexadecimal.  Editor  gráficos.  Editor  de  sonido. 

Escritura  de  ordenador.  Lista  referencia  de  variables.  ^ 

Calendario.  Desensamblador.  S 

ADMINISTRACION  de  una  colección  de  discos  L.P.  “ 

HOLLOW  -  JUEGO  DE  LAS  CEREZAS.  ^  .  -^ev 

DIAGRAMAS  DE  BARRAS.  X  % 

TABLAS  DE  PORTIVAS.  X 
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ESTE  ES  EL  SIMBOLO  DE  COMMODORE.  COMPAÑIA  AMERICANA.  LIDER  MUNDIAL  EN  NUMERO  DE  ORDENADORES  INSTALADOS. 


Su  Commodore  64  tiene  mucho  que  decirle. 


Impresoras, 


Deje  impreso  el  trabajo  del  ordenador  con  la 
claridad  y  limpieza  de  una  buena  impresora. 

Su  C-64  le  ofrece  una  completa  variedad 
para  que  elija  la  que  más  le  interesa. 

Impresoras  matriciales,  de  margarita,  a  cua¬ 
tro  colores.  Máquinas  de  impresión  para  un 
mejor  aprovechamiento  de  su  C-64. 

Amplié  las  posibilidades  de  su  C-64,  descu¬ 
briendo  su  extensa  cama  de  periféricos. 

Ahora  que  ya  sabe  que  su  Commodore  64 
tiene  todavía  mucho  que  decirle,  prepárese  a 
conocerle  mejor. 


O 

commodore 


Unico  representante  de  Commodore  en  España. 


El  Commodore  64  es  el  resultado  de  la  expe¬ 
riencia  internacional  de  Commodore  como  líder 
indiscutible  en  el  mercado  de  los  microordena¬ 
dores. 

El  Commodore  64  es  el  ordenador  más  com¬ 
pleto  y  potente  de  su  categoría,...  pero  todavía 
tiene  mucho  que  decirle. 

Por  ejemplo,  sus  Impresoras. 


